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DIA-MAKE.BP2 



1000 
1010 
1020 

1030 
1040 
1050 
1060 
1070 
1080 



1090 
1100 



MAKING DATA FILE 
COLOR 15i4.7:SCREEN 0:WIDTH 40 
CLEAR 1000:DEFINT A-Z 

:DEFSNG R.T.U.W-Z 
DF$="DIA-DATA" 
OPEN DF$ FOR OUTPUT AS #1 
'••• FIRST SETTING 
R=1 .7 

XM=0:YM=0:ZM=0 
U=ATN(1 )/6 
DIM T(2.2):T(0.0)=1:T(1,1 )=COS(U) 

T(2,2)=T(1 ,1) :T(2.1)=SIN(U) 

T(1 ,2)=-T(2.1) 
DIM C(5) :FORI=0TO1 :FORJ=0TO2 

C(J+I*3)=J:NEXT:NEXT 
'••• DATA READING 
READ N.M.OX.OY 



PRINT #1 .N;M 



1110 
1120 
1130 
1140 
1150 



1160 



1170 
1180 



iB(M) 



ZM=ZM+Z(I) 



:ZM=ZM/I 



'• ARRAYS 

DIM X(N) .Y(N) .Z(N) 
DIM XX(N) .YY(N) .A(M) 
'• FIRST POSITION 
FOR 1=0 TO N 

READ X(I) ,Y(I) >Z(I) 
XM=XM+X(I) :YM=YM+Y(I) 
NEXT 

XM=XM/I:YM=YM/I: 

FOR 1=0 TO N 

X(I)=X(I)-XM 

Y(I)=Y(I)-YM 

Z(I)=Z(I)-ZM 

NEXT 

'• A(m) .B(m) ;START 
FOR 1=0 TO M 
:READ A(I) .B(I) 
:PRINT #1 ,A(I) ;B(I) ; 

:NEXT 
:PRINT #1 . 
1190 GOTO 1300 

'••• CALCULATING 
READ A 

THEN END 

THEN SWAP T(2>1 ) ,T(1 ,2) :GOTO 



& END OF LINE 



1200 
1210 
1220 
1230 

1210 
1240 A 
1250 
1260 



& PRINTINGS) 



IF 
IF 



A = 
A = 4 



= A-1 
FOR 1=0 TO N 
X=X(I)*T(C(A 
+Y(I)*T(C(A 
+Z(I)*T(C(A 
1270 Y=X(I)*T(C(A+1 ) 

+Y(I)*T(C(A+1 ) >C(A+1 ) ) 
+Z(I)*T(C(A+1 ) iC(A+2)) 
Z=X(I)*T(C(A+2) .C(A )) 
+Y(I)*T(C(A+2) .C(A+1 ) ) 
+Z(I)*T(C(A+2) >C(A+2) ) 
1290 X(I)=X 
:Y(I)=Y 
:Z(I)=Z 
:NEXT 
1300 

PRINT #1 ."XY"; 



).C(A )) 
) .C(A+1 ) ) 
) .C(A+2) ) 
CCA )) 



1310 FOR 1=0 TO N: 

:W=(Z(I)+500)/600 
:XX(I)=X(I)*R*W +OX 
:YY(I)=Y(I) *W +OY 
:PRINT #1.USING"### ### " ; 
:NEXT 
1320 

PRINT #1 . :PRINT #1 >"L"; 
1330 FOR 1=0 TO M 

:L=2 A (4+(Z(A(I) )<0)+( 
+(Z(A(I) )+ZCB(I))< 
:PRINT #1 .USING"##";L; 

:NEXT 
:PRINT #1 . 
1340 GOTO 1200 

N(?a->T^) M(^;<) 



XX(I) ,YY(I) ; 



Z(B(I) )<0) 
0))-1 



1350 

1360 DATA 12. 



29, 



1370 '••• 

1380 DATA 

1390 DATA 

1400 DATA 

1410 DATA 

1420 DATA 

1430 DATA 

1440 DATA 

1450 DATA 

1460 DATA 

1470 DATA 



X(n) .Y(n) .Z(n) 
44.282. , 
19.282. , 
44.282. , 
94.282. , 

119.282. 
94.282. 

69.282. 22.9825. 



22.9825. 
22.9825. 



OX. OY 
256,80 

123.301 

80 

36.6988 

36.6988 

80 
123.301 
160 
120 

40 


40 
120 

80 



69.282. 22.9825. 
1480 DATA 138.564, 22.9825. 
1490 DATA 138.564. 22.9825. 
1500 DATA 69.282.102.983 
1510 ' ••• A ( m ) . B ( m ) 
1520 DATA 0.1,1 ,2,2,3,3,4,4, 
1530 DATA 6.7,7,8,8,9.9,10.' 
1540 DATA 0,6,0,7,1,7,1,8,2, 
10,4,10,4,11,5,11,5,6 
1550 DATA 6,12,7,12,8,12,9,12.10.12.11.1 



.5.5.0 

10.11.11,6 

,8,2,9,3,9,3! 



1560 '••• A:MAWALING DATA 
1570 DATA 1,1,1 ,2,3,3,3,3,3 
3,3,3,3,3,3,3,3,3,3,3,3.3.3 
2.4,1 ,1,1,1,1,1,1 ,2,3,3.3.3 



»3»3»3»3»3»3» 
.3.4,1 ,1,1,1, 
,3,3,0 
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53l«W«ffl 

1090-1180 WMf—S'mfo&b 
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imm- 1 •M=a©ss- 1 •ox, 

X(n). Y(n), Z(n)=mm3X 
7lWIS"T©JI>S n (DSStXX 
(n), YY(n)=HH©ffi#Sr© 
MjSnfflffiS»A(m) % B(m)=S 
m©ffe£, *f)£©]IfSS*§*i=llQO 
?I\L M€, iTll80TA(m) s B(m) 
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1250 — 1890 um3^ftmm?kv 
tommm «x, y, z=tts 

i3Do~i3io m*mmmT—?(D 

13P0 — 1330 iamfflB^siLfflit 

L = 38Pg©lE5£C«{&L'fcA 

1340 fflBOOCfR/3! 
1350-1570 5*— *OTg»REM 

*}jllB0J330©7SJlCS5 r PR I 
NT#1,j»Kffffl 
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Mf'YA7(CALL MEM I N I 
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UIC. RUNStftftffr^iT^-Si:. 
RAM^-r^S-JSgU Mrx-f;*. 
?<7) r D I A-DATAj&RAM^-'-f 

A9C8;Ui^T,DF$J r MEM : 
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s. znufti*. ramt^^wt 
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Hi is, 1 77* i at hr 
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K2©ffP050©cfc5lc r FOR 
I NPUTj(A*ffl77'fJbffl 

jH©r7r-^>-r§t, kp?, 
fct^is; 

I NPUTftl, A 

©/co Sf, 12^A0, *t 
I NPUTJM, A 
tTSc!:, ^^d'IS^9tfA0, 
;£!S(h I, K --o ^©cfc5 

ic^a^Etaocirur, iif 

5££C/ftg&7-'-^£IIIgt 
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*«CL\5tL I NE I NPUT#r 
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-1z-7*nfc^P^5A© 1 offlii 

*C.CRI4CTRL + M(^fcBRE 
TURN+-).I_FBCTRL + JC 
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OFB, End Of File(77^Jb©S>? 
ftO)©»Sr-. CTRL + Z„ v-^r> 

i/ v 1 1 7 7 -r ;i/©,«t) c Bfr & 6 g* 

^©3-KAM^f<„ 
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fcO, US I NGX£f£ofc9 

W4, «SI©K MtE^JA, 

xy$, L^vm^mt m 

P15D, Rei70)3ilCbfc o 

X^x-^GDEtfJOB, CHR 
$(44)(zi>Y)7>CR + LF& 




&n©r\ -«, x^tfctb 
Z7*—5>%Wmz&i:, torn. 

Uf©^frccR+LFsr©-r 
^r©x-^tf ; Aoru*5o 

$[°]Bffi^a^otA\ L I N 
E I NPUT#lCc£orB!&tti 

7J' ; frfrfc>&Uo 
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8 

63 

63 

83 

1 31 



12 

1 
7 7 

6 
10 

7 12 
XY218 
5 294 
3 346 
L15 3 
1 31515151 
XY218 58 
5 294 58 

346 87 
L 7 1 1 1 

1 1 715151 
XY218 54 

5 294 54 

8 347 91 
L 7 1 1 1 

1 1 715151 
XY218 50 

6 294 50 
5 347 95 
L 7 1 1 1 

1 1 715151 
XY225, 
1 30/ 
5 3, 



2 2 3 

9 9 

7 1 
4 11 
12 9 1 

185 65 
256 84 
362 84 
51515 7 
515 3 3 

186 65 
256 74 
362 79 
71515 7 
515 3 3 
186 65 
256 64 
362 75 
71515 7 
515 3 3 
186 66 
256 55 
362 70 
71515 7 
515 3 3 



3 4 
10 1 
8 2 

5 
2 10 
224 
150 
256 
1 1 
315 
224 
150 
256 
1 1 
315 
224 
150 
256 
1 1 
315 
224 
150 
256 
1 1 
315 
224 
15 
24 



4 5 
11 
8 2 
11 5 

12 1 
66 288 
84 166 
50 
1515151 

70 288 

79 166 
51 
151515 

75 288 

75 165 

51 

151515 

80 288 
70 165 
49 
151515 



5 6 
11 6 
9 3 9 3 

6 6 12 
1 12 

66 327 6 
83 256 8 

5 3 111 

70 326 6 
87 256 9 

7 1111 

75 326 6 
91 256 9 

7 1111 

80 326 6 
95 256 10 

7 1111 



N. M 
I 



LS 

XY$ 

L$ 
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2000 
2010 
2020 
2030 
204-0 
2050 
2060 
2070 
2080 



2090 
2100 
2110 
2120 



2130 
2140 



2150 
2160 



2170 
2180 



2190 



2200 
3000 
3010 
3020 
3030 
3040 
3050 

3060 
3070 



'••• DRAWING 

FIRST SETTING 
COLOR 15.4.7:SCREEN 0:WIDTH 40 
CLEAR 1000:DEFINT A-Z 
DF$="DIA-DATA" 
OPEN DF$ FOR INPUT AS #1 
INPUT #1 ,N,M 
DIM ACM) ,B(M) .X(N) .YCN) 
FOR 1=0 TO M 
: INPUT #1 .A(I) ,8(1) 
:NEXT 
'••• SCREEN SETTING 
COLOR 15,0>4:SCREEN 7 
P=0:Q=1 :SETPAGE >1:SCREEN.0 
C0L0R=(4.1 ,1.2) 
:C0L0R=(1 ,3.3.3) 
:COLOR=(3,5.5,5) 
:C0L0R=(7,6,6,6) 
'••• DRAWING A DIAMOND 
SETPAGE P,Q 
:CLS 

:SWAP P.Q 
INPUT #1 ,XY$ 
FOR 1=0 TO N 

X(I)=VAL(MID$(XY$,8*I+3.4) ) 
Y(I)=VAL(MID$(XY$.8*I+7.4) ) 
NEXT 

INPUT #1 ,L$ 
FOR 1=0 TO M 

L=VAL(MID$(L$.2*I+2.2) ) 
LINE (X(A(D) ,Y(A(D) ) 

-(X(B(I)) .Y(B(I))) ,L, .OR 
NEXT 

IF EOFd ) THEN 
CLOSE 

OPEN DF$ FOR INPUT AS #1 
INPUT #1 ,N$,N$ 
GOTO 2130 

'••• FLOPPY >>> RAM 

CLEAR 1000:MAXFILES=2 

DF$="DIA-DATA" 

OPEN DF$ FOR INPUT AS #1 

CALL MEMINI 

OPEN "MEM:"+DF$ FOR OUTPUT AS #2 

INPUT #1 ,A$:PRINT #2,A$ 

IF EOFd) THEN 

CLOSE 

DF$="MEM:"+DF$:GOTO 2051 
GOTO 3060 
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S fcibKlt fc b iOT*3^**^ 
> - i -JIBTB G Mfr*#> S A x 4 

S J! 1=] I' ft U 4 o T fc i. n. **^ 
BGM4-olt5K#fc'„=ft«»- 
©AJt(14*) 
fcLi'U, >-3.-HfficBG 

7 4*fc»j*-4i.«i* f m-c< s 
fc£ftfe*o-C „ 



r tofr<MSX • DOSA-'Ao 
TA,4bJSffll<fc9-tf/joT:- 

*> j4A.a N &SiJ(7>r'-< 7v7i;n f- 
tS<t3lc4oTfct7^ BAS 
I CTTS*M? 5B6«irr-fX 
y>k\tm±£-£h1Xi lfz '<<y 
■3 l 77"f^i:A^1SoTDOSlC 

fb-frntt'tsni-r^frou 

=/SB*-*^-n^>'f (16*) 

fco t fc 4"iSKtI,t*to :W' 
&tt, DOS^fo/;77^"0 
3t°-iifc*,5/l, fit: fc DOS 

< J:„ 

^y-t-yyyj Mk 7'77-f y 
y?>7->-yi.*m±lxJ.5.l^(3 
^vytfcfcSlcavlfc/UcLT' 

«U*)o^<b*IJL*' f J:<-Ct>rt 
gtffztoUCj, ttfccfcftijj 
•tt/U il£liSBli'x-AV7l>'7x 
7&/HH::ts**i:i>7«m>li 

b^'iSTo Itnffe^ 777< 
•yy&fzi ZKt 4 X7 ***) * 
1$7 Ls r-f X^T'^-b^feSiv 

^(7).i>Xrt§* fc o t «t < t S ^ 
^ t-to=*S5*- K E y S i D E 

dea) 
i-K, tzltHZTP-ty.'t s 

s i r'ff ^-s ns©%-4A, t *' L 
c*'C,y-t-y h-y-t'c^-i-a 

ftt)(Dt5.i1c%lX^Z> a 

my~yn.-+f-izi\i\i5i\ 

i - jO#J!.i: i C o X. T-y°^- 



iV?^ fcLASZ*4-fc05l»L»fc 
t>;tttJ:<t>^SofciJTto 
MSX K x-T'J.-^-roAii 

T # S M S X 2 i-^h(7)3.— tf-U: 
iMS XI- tf-<7)9D/<— fe> h 
liLhfc\.^S<77Tto 5S>, ^<7)4 1 
ICfcx-f X^tzS*ttSs MSX 
2 JL-Hf- fe L> 5 J: ,S^ i tfr\ 
*tlX't>. ir<tt»fi£c7)(5 7A-'# 

^tJSv.'it =*WR'rtTOitt 

(?« 

1 2^-§-TM7 7 ><7)t^Tl»5 
-ir*"\ 2^Hut*>A'''9i:v.^« 

$*5-5T*>/zi;Btrrott-r fa 

7*-Wft\:X±J)*A,ftA,lZ\X'<?to 

htiti^Mm-mix^itmu 
h&^nn fzt®i =mnm- : & 

BB«*fi|5(16a) 

— t-w^a^^ftito 

25H)i:Hr-A©y7h^-*- 

<D r t> U;liBgtit?/ jCOf — 7ii 
r Hy'-Ai:t,i-,tO-t; tji: 
I <t 7 t S 5 o r Hr-A7 > *-o Tjt 
*4^-AL>4^*'/ j t*\ r -K 

i:in<;ji>c t^;c?)*ftt:Wt 
4iS«4- 1* *r*A,4-*- "ifai-f 4 

(tiSt) 



zo^A'wr 



^y-y^^Xli, telT<7J*a- 
7— 1'/^*'*4 f U <t £&£!£* 
J|LTt»6 

HP=1Ufc^^.LTc^o 7°n7'7 
aa-'t J < »fr4^t #f, &ij 
/;V.*7-7-y7*"'»5i:#4^ 
CKUHfrftttftltTi^o KM 
tztt 7 7- >yAJfiT*J*it So 

•M mm=tmy'n 7'7A«a 

<7)>-y-b— >4i'fraa»o »K# 
l-ttM77' >-#t!!x u^^-liMo 

• 1 fr "7D-7^ /_» = ^f <n fe <7) -r 
(f 'J, fco/r \'n<n')y. \-xxz 

/:7"n7'7A V— A, -y-JK 
CG4XTt0K o C*,btffi«t 
*t»M 7 7 Vtmrf is-h «rlgS 



^0)7—7 ^Hf-MZ-io £ ~3 1 V 
tzt jt:-3UTs^4<ra§;5.4- 

H)o ifz, r 2>lfzti.Vtltlfz/i<7) 
y— vtnWlOBHo HBCJfto 
Tt^S^i:^ L^^^4A(7)St5. 
«r^L^T*/c^Ct4^«-> /\7!) 
*t#t»T*TBLU *Stf 
-v<7»Rffl*l-Iiia§:B n p«-li-^t 

So 

*T5fe(is M7 t» >a^lgB r 7 7 
>7'A7,77A-000jf*2T(0 

OOCS 3 -7—45 %-AtiS )ott 
ntf • R* • *Mf • «fiS»#t.S*i 
■ftc 7>"7--h/N**+<7)>y-lr 

->ittOK„ fcfc'L, 3-7- 



-yrisqup^T-htin 



r 4-^<7)77>7'AT7ii*U4o 

fc 2 aiB»«7)-<x h 3 j ^-si 'fcr 

>-7— h'\***4A3)«o T(7)/\ 
**<7)»#A^£ <£<&-£ too I 
/z, r *L/iliBlSn/;/j<7>4-^<73 

r--7t3*t SiiJt. fc*^t < n 
st7*in.v i«H2)imi ^* 



a, tt»T10«lC*U->7-VU7'-y 
X£7V-fe'>l'tS<* 

^n-ctt, i2«-§-ro*tt-^m^ 

**L«t 7o 3fitt r ?3M 
*j, 2fitt r «8Ij, 1fiLtt r *>L 
fcttBfnfc'/jTL/bo 










<SiW>4HK*<*BS)ff>+ai» <«t»>e7Ut 



A'^ft 



4 



** 



AiGTonm&zmTtz 



r M S X tztn&mz$Ltzti:\.\ t> 
•a t HfflttCO* 5 P C 984^A>£ 

%LTA 1 GT^HALtl'J) 

£lt#<#;L-C<*:<H\ J 

!IS*ft- testis (14j£) 

^J <*tt/::A 1 GT0>IB*£- 
StVt. A1 GTtttCDMI D I 

wm < imztix^i®M S X V 

i ewA<«¥g«;*tm^(I)R 
AMA"512+a/<>f KCfcofcZfc 
A-'^fit LT*lfT*ofc„ *£ 



54 b. MID [«8g£l5^T^ 
Ztz. yn>'7A^iSLtV- 

twT*Tr, ^4*ijffl-;£*-M 

* 5 «t 'J , USt? >**'t%4 S flU 

'J Stffc«3«<lH.*fcJB-5 U '< 

^2 4*iJffl>4A"Jt.a.T < 5 fcjg -5 
fc«, r M S X tz tWkW.-t-.t-Ji 
l» j t L> -5 H JLttSt L T fc # fc 

iff "it**, MSXtli, ¥«£, 

t<.t£iX^Z(7)tifrho 



VaJn?z>L 



nnnit-u 



by Kjt$8 



•yict;A*4i.^git ;>>(*!# 

R U N T 5 t iffi®£-LC#l. ># 

A-'b. Tl-S$'m»<o *C7>#^ 
#A>bttAT'4u.J: v l-(.!COA^b 
4^<fc 7 l-)XK-z*-%-W LT 

tt%TS TBKiStfftu:? y y^'o 



'J 7. r +<7) r Bjtt^-V-'U+V 
7??-t'f„ KE Y 1 , CHR 
$(2 5 5)£3tfrlTF1*--C 




£>.i^j:l.\ &.i:4'\. 



1 C0L0R7, 1 :SCREEN2.3:SPRITE$(e)=-«-+STRING$(14.128)»"«1"«STR 
INGJ(1t.8)»"')":SPRITE$(1)-"»":F0RA!=BT0999:R = RND(-TI11E)»3:T=T 
-(R>2)"R:S=S-STRIG(B)«6-1 :S=-S»(S>B) : J» J tS : PUTSPRITEB . (R.T) . 
8:PUTSPRITE1.n3.J»15>:IFJ<l80ANDJ<T + 16ANDJ>T-lSTHENNEXTELSE 
IFJ>179THENRUN 



wsEtm ^a//u— *f-/c.«/ v 



iS&c7)Gg8 (B X'<-f '<-)%■ 
SfFlT, £A>b7rU/r< 5U- 

1t///JA9 Jf-a.- (SUW- 13 

B OX'M^'-ttX't-X*- 

3®#IA-C#4l.\, JlTWSV 

«tlt/t!elS[*' r xayic&5^o * 

3 7A*1i7Js*,afc t £ CR U N t 



tU£>)7l"( £4 So 

-Jtl-8*0>u— if- 
< StfX-ii^S-iSl'So 



■A-'IRA.T' 







1 SCREEN3.1 :C0LOR15. 1 . 5 : FORI =BT01 : F0RA=BT03 : L < A ) = INT ( RND < 1 ) » 
23) :NEXT:FORX=BTO21BSTEP70:CLS:Y=Y*ltSTRIG<B)»2:PSET(228.Y»8 
) .3:F0RA»BT03:LINE<X.L<A)»8)-(X+69.LIA)«8) . 7 : NEXT : IFY< BORY >2 
30RP0INT(22B.Y«8)=7THENSCREEN8:PRINT"SC0RE" ;SELSENEXT : I =B :S= 
S*1 :NEXT 




va^Sa^r-r^-Si; 



r i^t,mi imiitx^tztm 

l J a to ItX'tJPoT zmtz fc,f. 
i>tt*'> ft£4A"'bt*S£Oi: 
-^jW*#thL-CB;L'asS*j£- 

C££<z>* * > frfl" 1 4A-'b «fc 

T - 0) - J: 4-a o fcOTTlt # tzo 
itz. WMMXitLlXA-tztZ^ 

•>3-fXx-f y?*- YlZti-jtzo 
h L^ «t "3 Tto 1 0E -§<0 r G R E 



Y COLLEAGUEj£-iM& 

itz, +?fiI3fXi'F* > ; 
r A,B*^>%-ffLT->a'fXx 

t=« 5 «t j J:«a.T < fitzii-\zfi 

ttf7/:o/:„ 








r REMOTE TOWNj^^bV"5^7r/s:b-S/a>(DKji^ 



r REMOTE TOWNjA^b 
tVXZtzo ^-^ROTffiS^-K 
"C&ttMft, x>*<t<iifi-T 
#5-i:(i*^-T'C7M*liH4o f4« 

7<X^© r *77-jCATtS„ 



R-T-KOME. FS2 



1991^9 3^<7)*|£4r« l ; 5 A\ 
r X— '<--7*D 3 U2 ji-jtM^L 
X<tU> 

7>A"'v>xR5 r REMOTETOWNj 




■te^v 




^S'Fflt 


W^^",s. s? ■■.. . 




i?St£jp&%M 










sS^" 




¥-' 






lfc> 


***3 




REMOTE TQHH 


VOSH1X 1991 I 



«TT*4£7)fr-fc'L'pn 



12B KSTRIG(3)THENGOSUBS60:SOTO5a8ELSEIFSTRIG!l!=e 

THE N12BELS EGOS UB56B 

238 S=D:MD=MDtPAD(PAD(12)+15)t256AND127:D=MD*l6:IF 

SXDTHENGOSUB560 

248 PUTSPRITEB. ( (0*4)«S8»88. ( 0MOD4 ) «8»1 75 ) . 15.0: IF 

STRIGI1 )THENG0SUB56B:A=USR(8) : F0RS=8T0B : S=STRIG ( 1 ) 

:NEXT:0N-(D-31«(D>3)-(D<4)G0T026B.338.458.488 

268 MX=(MX*PAD(PAO( 121*14) +328 ) M0D328 : MY= < MY+PADI 1 

4)+222)M0D222:S = MX*8ANDl :X = MX*16:Y=( (MY*6-S«6 ) *1 2 I 

«2 + S 

288 IFSTRIG(3)THENG0SUB56B:G0TQ228EUSEIFSTRIG( 1 IAN 

DJANOJ«10<=M!THEN3BBELSE268£LSE260 

428 PSET116.280) :PRINT*1 ."PUSH RET" : A=USR ( ): FORI » 

0TO1 : I=-STRIG<3) :NEXT 

438 PUTSPRITEB. (B.216):C0LOR15.B:CLS:LINE(7.B)-(24 

8.l5l).l5.B:FORI«BT0239:LINE(I+8.1SB-G(II)-iI+a.15 

81.11 :NEXT:PSET(56.175):PRINTt1 ."«'3*HftT''l J 6" : PSET I 

7B. 198) :PRINT#1 . US ING"0" A.;-i«#**#00C:A." ; G :S = : FORI =0 

T01 : J=STRIG(1 1 : 1= J -S : S=J : NEXT : G0T01 08 

468 IFSTRIG(3)G0T022BELSEIFSTRIG(1 ) THEN0PEN"R-TOUN 

.0AT"F0R0UTPUTAS#2:FORI=BT037:F0RJ=BTO19:PR1MT*2.M 

(J.I) :NEXTJ . I :PRINT*2,YR,M! , G , BK : FOR I = 0TOYf. =1NT# 

2.G(Il:NEXT:CLOSE«2:G0TO22BELSE46B 

49B IFSTRIG(3)G0T022BELSEIFSTRIG(1 )=BG0T0498 

8BB S = B:F0RI = BT01 :J = STRIG(1) : I=J-S : S = J : NEXT : I FERL = 

5B0THENRESUME1B8ELSERESUME188 
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©MS XCB6IM-© lactic: 

©^'Tv'-iiJOZ&jaUKDBD 
r FD9FhStt!3^Df,3!j 

nsFDgFhisj^fv-iu 

^*7'^j(H. TIMI£ 

*FD9Fh=SHFD9Fo *S© 
®3©7->^», MSX-MU 

3©H. T I M I CBfclVC 

nF7hTiai;^f)S«Sitf^ 



A')£D¥A,rn3 '©7-V7 

*5rttSU. 3©7>V?£f£ 
-5fc©©JL/-,/L/tf£3©fc" 

-&ntf\ ^is]©+t>7Jb7p 

7'5ACt,E6nSfSn75"C\ 
r MSXE^-*JUA>K7 

nsiEUMsSiATliCftofco 

©bu&ch. t i m i c«^ 
nrufcJu-5 i >A(5A'rs) 



5M"7-SI03»7^^7G)ffiL\73 




• 9% 




H. T I M I Cttgf£«^©;U 
-?>Atf£9, *fttf«MlA - £ 
B¥<3\, oSQB0»©l»CtC® 
SA'£HffUrnS©fc' 



•A = USR(8) 




• A = USR1(B) 




BJDUfcfJO 3Ml5I©&fr?W 

iyrojU-^vA^/ur-us©^ 

Sffl5IA'fe5<f>A,£W7*n-5© 
fc-„ £fc, 7 ■:/ 2 Strife DC 

ISUSR1 CSR) 



'7) 



+ 



r'SDQ4BhtlPS)^ffi<S 

7n^AB£fm ^©Sfr 
T\ D048h£Of'3Uo£Q. 
Jb-^>A^ff/30 
©HarJte©t*CB, SfD 
04B h C)l-^y A£ffi¥U 
H. T I M I CttT'd^AB 
©3537 Kb 7.^/3?^ (il 
3rBC3h,29h.D0h = 
r DQ29h'\fRKj)£»< 
^nr\ Wft(D'\®Z-£Cg 

5r©s? s&ffl-n^ u r * 6 n& 

ij o 3 ^so-ii A't 5 *> ^ 1 1> 
t,t+r£rj3 *ur. 



@g»©7-f7-IlJ03^©II 
Btf^fflC&ofcto, H. T I 

me>~ci.. Msxiai$fic60# 
© i wz-tcznmntzya? 

-y->7JL/^RUNL.r^ci;5 
605t©1 S>2tCFB*-CBt 

mzwzztv-ei^tDv, se 

TT I ME&t'TIEUUBf^lS 
F B+-€)¥ffcyi^ffl<!:S 



L 
T 

if 

U 

T 

M 

s 

X 

F 
A 
N 



■ LUh F6*— CR£8!IC F6CL0CK. HM2 

10 COLOR 15»4,7:SCREEN 0:WIDTH 40:KEYON 

20 CLEAR 200>&HD000:AD=&HD000 

30 KEY6>CHR$(21 ) +"000000" +CHR$ ( 1 ) +CHRS ( 

21) 

40 READ A$:FOR 1=0 TO LEN ( A$) ¥2-1 : POKE A 

D+I»VAL("&H"+MID$(A$»2*I+1 ,2) ) :NEXT 

50 'A=USR(0) F6 CLOCK START 

A=USR1(0) F6 CLOCK END 

60 DEFUSR=AD:A=USR(0) : DEFUSR1 =AD+2 : NEW 
70 DATA 180EF32148D0119FFD010500EDB0FBC9 
F3219FFD1148D0010500EDB03EC3329FFD2129D0 
22A0FDFBC9F321D0F80E06DD21F5010DE5C5CD5F 
01C630C1E1772379B720ECCD48D0FBC9 



vuo^umm 



-e©5SE*m«usRisacE»ur. &a\mx&* 
8fii-9"o6ffi©?x?«Ryras-r5(3a>rEfflto 

&Li)„ ^»§d:4»A=USRl (0)€Sff o 
[)BBJ]n30B, F6*-©*fit„ ^3?ISSUru5B 
tff©0©7^CfiJO^*«5IItfB?SJ^±SSL/T<nS 
i5i:Soru5. f760"Cg»g»£;S3-„ 
[7J/:/lgKI8)»DO00~=USRC5£82nrU5 
7KUT.O D010hlc!R,3; •D0DE=USR1C 

s«*nru«7KL/7.a D04BhCiiiaurLit^ 

-?>A£t£Ctdrr •D010~ = USR©*1*„ 
H. T I M l©5Al'S©i35 ; n£D048ha?U g 
»fflSJO3a*SD ! «Jl/-?>(D0E9ri~)'MR/3!ro ! %« 
•SCIfc •DaE9~=|iJ0C*t«fl ! Ji^#o FMKft- 
frtoBffKBXDttlU F6+-CKS0 €■©»> D04 
Bh£li¥A,rfc£Cfc£5 •D048~ = ^^tt9- 

^i i J7, ;u-?vA©B»«im 



t 
1 

I 

f 



7JWJXA 



©%*^^SLTl^L/^-; 2 






±BS4#x4*' c bff*^5IA L «fc 
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mmt. SCREEN4«± 

to®. COLORSPR I TE 
■x-SBSCIiESSifcS 

•>h©5S3tf^S(HOEC, 

ca i croaks ^-e» r ti 



^ TlSX^^-f hH©^ll5iJ 

fj-DTl\%>Z.£.tdo £fc f— 

9f?X.^W££, COLOR 
SPR I TEw5^lc r $jtftt< 



ZZ-C7.*.-?.*-*W?£Z.7=? 
-f StfEttBttorTCBSfr. 
fiB0©X7^-< S£»frL-rusa! 



18 C0L0R15 ,1,1: SCREENS , 3 

j SPRITE*C8>=STRIN6*<16.255:> 
30 SPRITE*Ci:>=STRING*C8 . ©>+STRING*C8, 255 
>+STRING*CS,8:>+STRIN6*C8,255:> 
48 COLORSPR I TEC 8 > =8 
50 COLORSPR I TEC1> =7+64 

60 FORI=0TO1:PUTSPRITE I , C 50+50* I , 50 > : NE 
XT 

76 BEEP:F0RI=8T01: I=-STRIG<0> : NEXT 
88 FOR I =0TO211 : PUTSPR I TE © , C 50 , CI +58 > MOD 
212) :NEXT:60T08© 




Q9b8 ?IB? Htz 7?> ?A<n7a77 U r T -yfidMUt 3 j 



EC 



CC 



I C 




C2 



C3 



C4 



n5IJ@»- 



• 6a- K(0~15) 



_ ict .. y h ^©e^Ktf i©isi+7.^^i'Sffl«^e^«s 



CC t'7h 



-• EC t' y h ■ 






r 

V 


^y7< 1" ffim 






1 51)1 




2 5IJ 1 






n5U g 











102 COLORSPRITE0«5t 



•^^-fMS^ttOx-SiftS 




COLORSPRITEKHW)) =n 




•m i jystcDx-^gfts 




COLORSPRITES«SiS^»=CHRS(nl)+CHRS(n2) + - 


•• +CHRS(nl6) 
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ix^^-rscDfiaocd;*«iffie^soi 



/30o©X^^-Yh©iJo 



18 C0L0R15 , 15 , 15 : SCREEN5 , 3 
28 SPRITE*<:0>=STRIN6*<:32,255J 
:a C8L0RSPRITE<1>=32+1 
40 C0L0RSPRITE<:2>=64+2 

50 F0RI=lT08:XCI> = <I>l>*<:i<5> + a>5>:V<I> 
= (K3)+<I>3)*(K7)+(I>7) :NEXT 
60 PUTSPRITE 1, C140,140> J ,0:PUTSPRITE Z, 
C148 . 90) , , : PUTSPRITE3 ,<i40, 40) , 4,0 
70 ONSPR i tEGOSUB100 : X=70 : V=90 
80 SPRITEOFF:S=STICKc:0> :X"<X+256+X<S>>M0 
I>256 : V=CV+212+V<S) >MOI>212 : SPRITEON : PUTSP 
RITE0, <x,v:> ,3,0 

90 IFSTRIGC0)=0THEN80ELSECOLOR J 4, 7 : END 
100 SPRITEOFF:EEEP: RETURN 








■ 


.i,0 9<£>X7 f: 7'f Yffi&tffflZ 

itztzu. max-mzztitz 

y % frl oot-* 5+(-7';u— j 1 ^"* 

Hfr**iSo ::tttfcW:t' 

ij -*A-^SJf*) set frtgig 


OS4'TTL>?,*l*'ltt'-7WA i «5 


LT»l»THLU\, 


79 ONSPR I TEGOSUB100 : X=70 : V=9@ 
100 SPR I TEOFF : BEEP : RETURN 





cct:^h>tfi <r>» 






LI 



Oitt^^SftfcJ: i <c«UC4-% 



CCt'-y h*"*1 OXT^-fMJ 

Si* $ HX U 3 SSfl-/; lt«* £ 

A^tlT, *tSi<7)OR<7)fe s 
oatJH&(fea-K10)U4-S 



i#LrL\*^75-rh©e 1 000 
zziztioizzy^^m OR V0010 
mitmnxj^ hcoe 1010 



8 
2 



10 



30(7*S6t:-y h<7>9*>, CCt'-y hi: I Cf-y (-(2X7^ H^SA** 

X^v-f hfc, *ft**l?'l , y<7>iI-j3o<7)X7' ; 7'f h£*"153S-t£fc 

0<7)Egftl^X7'v'f M'S^ftSc £ffl]U*8#l»esa42J-V.M : - 
-TStfFlT, £fflC^T^&30OTHac..KO>!ro-C*J:7o *ft 
*'ft, WcDE3^(i.i>o-5OTX7 f; 7-< hf, glJCCtV h*"'1 ffl^T'7 
-f K Utt I Ct'7 h**1 m^7*7-f Kc&oT^So 2£, XX^-f 

ix^z : tti*tm.\-mt>-?t--hs x^-x+-T»i7rso w»? 

-fX^Cli/'C- SPRITE. SB2"tl^7 7"f^^Tlt5llfLT*5o 



^1 Ct^/K#1GD» 














^J 


fcfc#£»&Ufc*o l*rU X 

77'f \-m-owm$:ihiti 




o^»T'iih*"b'i->.>A < > sea 
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GODDESS .FD2 



1 '• <M.T.GODDESS> • DESIGN:EMG 1991/07/ 
04-06 • PROGRAM:EMG 1991/07/05-10/20 • 

2 CLEAR700 0.&HC9FF:DEFINTA-Z:DEFUSR=&HCA 
00:DEFUSR1=342:KEY1 . "SCREEN0 : LIST" : SCREE 
N1 .2.0:KEYOFF:WIDTH32:CDLOR15.0.0:PRINTS 
PC(233)"WAIT A MOMENT" : I=&HCA00 : REST0RE6 
1 :FORA=0TO10:READA$:FORB=0TO114:POKEI.VA 
L ( "&H" +M IDS (AS.B+B+1 .2)) : 1=1+1 : NEXT: NEXT 

3 I=USR(1 ) :DEFSTRE:E=CHR$(27)+"Y" :K=1024 
:RESTORE72:FORI=0TO10:READA$.B$:FORJ=0TO 
31 :VPOKEK.VAL("&H"+MID$(A$.J+J+1 >2) ) :K=K 
+ 1 :NEXT:K = K + 32:VPOKE8208 + I . VAL ("SH" + B$) : 
NEXT:DIMM$(25) .X(15).Y(15).P(15.6.2).Q(1 
5.1) .A$(25) >H(9) .H$(9) 

4 RESTORE59:FORI=0TO2:A$(I)=STRING$(62>" 
f") :A$(I+23)=A$(I) :NEXT:D = 400 

5 FORI=3TO22:READA$:FORJ=0TO13:FORK=0TO3 
:A$(I)=A$(I)+MID$(" f" . 1-(MID$(RIGHT$("0 
00"+BIN$(VAL("&H"+MID$(A$.J+1.1))),4),K+ 
1>1)="1"),1) :NEXT:NEXT:GOSUB50:AS(I)="tt 
t"+A$(I)+"ttt":NEXT:KEY1 . "SCREEN0 : LIST" 

6 FORI=0TO31 :VPOKE1728+I.255+240*(I>7) :V 
POKE 14336+ I > VAL ("&H"+M IDS ("20 1008040 1844 
A35 021 522091 022408802848850249040 AC50 00 A 
91040A40220".I+I+1 .2) ) :N EXT : FORI =1T09: H ( 
I)=1000:H$(I)="EMG":NEXT:VPOKE8219.128 

7 '••• TITLE ••••••••••••••••••••••••• 

8 A=USR(2) :CLS:PRINTE"#!lb')') lb')') )b ') ') lb 'J 'J lb ') 
lb') lb ')')«.') 'J lb') 'J II. 1Mb lb lb lb IMMb'JIblb'JIb lb 

lb IMblb lb 1Mb 'J lb 1Mb 1Mb lb lb 'I lb') 'I lb 'J 'J 

lb lb lb lb lb 1Mb lb lb lb lb lb lb lb lb lb lb lb lb lb lb 

lb'J')lb')')lb')')lb'J')lb')')lb'J')lb'J')":RESTORE13:FORI = 0T 
02:READA$:L0CATE2-11*(I=2) .1+1+11 : PRINT A 
$:NEXT 

9 PRINTE"! '1991 EMG PRESENTS"E"2! 1 -9 : STA 
RT 0:VSPLAY"E"4 RETURN:LOOK BOARD SrSAV 
E L:LOAD" :A=USR1 (0) : T=0 : A=USR ( 3) 

10 A$=INKEY$:U=VAL(A$) : I=RND ( -U*999) : IFU 
THENG0SUB43:G0T012 

11 IFA$="0"THENC=50 0:T=1 : TR=2 : G0T028ELSE 
G0SUB41 : IFA$=CHR$ ( 1 3) THENA=USR (2) :CLS:FO 
RI=1T09:L0CATE6.I+I:PRINTUSING"No.# ### 
## ";I;H(D ; :PRINTH$(I) :NEXT: PRINTE" KRE 
LICS SCORE SCORER " : A = USR (3) : FORI = 0TO1 : I 
=-<INKEY$=CHR$(13)) : NEXT : G0T07ELSE1 

12 A=USR(2) :CLS:PRINTE"'#MAKING ";:IFU<3 
THENPR I NT" TRAINING REL ICS"U : MY=1 2 : ELSE PR 
I NT" ADVENTURE RELICS"!) : U1 =1 5 : U2 = 7 : MX = 48 : 
MY=22:FORI=0TO25:M$(I)=A$(I) :NEXT 

13 A=USRi3) :DATA CREATED BY TOMOO SUZUKI 
.ADVICED BY IKUSHI TOGO.SATOSHI HIRUTA 

14 IFU=1THENFORI=0TO25:M$(I)=STRING$(63. 
"t") :NEXT:M$(12)="ttt"+SPACE$(56)+" = = t" : 
FORI=4TO60STEP20:MID$(M$(12) ,1.1 )="rt":NE 
XT:U1=3:U2=2:MX=59 

15 IFU=2THENFORI=0TO25:M$(I)=STRING$(63. 
"»") :NEXT:FORI=11T013:M$(I)="ttt"+SPACE$ 
(56)+"ttt":NEXT:FORI=4T058STEP2:MID$(M$( 
12).I)="? ":NEXT:U1=7:U2=4:MX=4 

16 FORJ=0TOU1 :B=0:GOSUB50:GOSUB45:MID$(M 
$(Y) . X)="/'":GOSUB45:X(J)=X:Y( J)=Y 

17 FORI =0TO6 :A = 2*( 1=3) + ( I03AND ( RND ( 1 )*( 
55-U-U+ABS(MX-X)¥5XJ) ) :P( J, I.0)=VAL(MID 
$("221".A+3.1))+RND(1)*(J¥5):P(J.I>1 ) =VA 
L(MID$("432".A+3.1 ))*5+RND(1)*((U+J)¥1.5 
) :P(J,I.2)=168+A*8:B=B+P(J.I.0)*10+P(J.I 
.1):NEXT:Q(J,0)=B:Q(J.1 )=0:GOSUB53 

18 MID$(M$(Y) .X)=A$:NEXT:IFU>1THENFORI=0 
TOU2:GOSUB45:MID$(M$(Y) . X)="A":NEXT 



19 TR=0:C=0:GOSUB54:A=USR(3) :CLS 

20 '••• RELICS MODE ••••••••••••••••••• 

21 A$="*":GOSUB44:Z=B¥20+1 : MID$ (M$(MY) ,M 
X. 1 )=" ":FORJ=ZT01STEP-1 : FORI=-1 TO0 : I=-S 
TICK(0) :NEXT: PRINTE". )TAKE" J "STEP (S) " 

22 A=STICK(0) :IFSTRIG(0)THENJ=0ELSEIFAMO 
D2=0GOTO22ELSEV=(A=7)-(A=3) : W= ( A=1 ) - ( A=5 
) :IFMID$(M$(MY + W) .MX + V.1 ) ="t"G0T022ELSEM 
X=MX+V:MY=MY+W:X=MX:Y=MY:GOSUB48:GOSUB50 

23 NEXT:B$=MID$(M$(Y) .X.1 ) :MID$(M$(Y) .X. 
1 )="*": LOCATE 0.3: FORI =0TO1 5: PRINT" 
:NEXT:IFBS='V"THENI=9:GOSUB50:FORI=0TO6: 
A=&HD006+I*7:POKEA.PEEK(A)+1 :NEXT:G0SUB4 
4ELSEIFB$="A"THENGOSUB39 

24 FORJ=0TOU1 :IFP(J.3.2)=0THENNEXT:GOTO2 
0ELSEX=X( J) :Y=Y( J) 

25 GOSUB53:PRINTUSINGE+" .&NO.## 3:### MO 
VING";1+J;A$;Q(J,0);:MID$(M$(Y).X.1)=" " 
:A=X:B=Y:GOSUB51 : IFATHENA=-62* ( RND ( 1 ) > . 5 
) :B=-23*(RND(1 ) >.5) : FORK=0TO4 : GOSUB40 :NE 
XT:A=X:B=Y:GOSUB51 :IFAG0T027 

26 FORK=1TOQ( J . ) ¥25 : A=MX : B=MY : GOSUB40 : N 
EXT:LOCATE0. J+3:PRINTUSING"aa###" ;A$;MID 
$(":)■»" .1-(Q( J.1 ) >0) ,1 ) ;Q( J.0) ; 

27 X(J)=X:Y( J)=Y:IFABS(X-MXX2ANDABS(Y-M 
YX2THENI=99:GOSUB50:Z=J:J=16:NEXTELSEMI 
D$(M$(Y) .X.1 )=A$:NEXT:GOTO20 

28 '••• BATTLE MODE ••♦♦•♦••••••••••••» 

29 A=USR(2) :CLS:A=USR(4) : FORI=0TORND ( 1 )* 
9+(T-(C<500) )*8:X=RND(1 )*14:Y=RND(1 )*7:L 
OCATEX+X+2. Y+Y+6:A=&HB8-8*(RND(1 ) X .4+. 3 
«T) ) :GOSUB52:NEXT:A=USR(3) : IFTTHENG0SUB4 
3:PRINTE" .C"MID$(" l\ " . 5-TR . 5) "3" 

30 K=&HD000:FORJ=0TO1 : IFT = 0THENIF J = 1 THEN 
FORI =0TO6: POKE K+2.PCZ. 1.2) : POKEK+3. P ( Z . I 
.0) :POKEK+6.P( Z.I.I ) : K=K+7 :NEXT: K=&HD031 

31 GOSUB46:C=C+B:NEXT:POKE&HD102.T 

32 A=USR(0) :FORI=0TOD+D*STRIG(0) : NEXT: IF 
PEEK(-1044)=251ORPEEK(SHD100)=7THENIFTTH 
ENTR=TR-1 :GOTO36ELSEELSEIFPEEK(&HD101 ) =7 
THENIFTTHENTR=TR+1 : GOT036ELSE35ELSE32 

33 '••• END ••••••••••••••••••••••••••• 

34 GOSUB57:PRINTE"( .THE END"E"*+SCORE"C ; 
E"-&"; :GOS UB56: I FOH(U) THEN INPUT" ENTER Y 
OUR NAME";H$(U) : H ( U ) =C : G0T08ELSE8 

35 FORI=0TO32:VPOKE8196. ( IM0D2)*1 5+240 :N 
EXT:GOSUB57:GOSUB54:A=USR(3) :P(Z.3.2)=0: 
A=Q(Z.1 ) :IFATHENF0RT=1T0A:G0SUB39:NEXT:T 
=0:GOTO20ELSE20 

36 GOSUB57: I FTR>40RTR< 0THEN PRINTE") )PLAY 
ER"1-(TR=-1 )"WIN":GOSUB57:GOT08ELSE28 

37 A=USR(2) :CLS:RESTORE37: PRINTE"' 'CONGR 
ATULATIONS!"E")$YOU SUCCEED IN RELICS"U; 
E"« ":A=USR(3) :GOSUB56: REST0RE13: FORI=0T 
02:READA$:PRINT:PRINTSPC(I*7)A$:NEXT:C=C 
+Z«100:GOTO34 

38 '••• SUB ROUTINE ••••••••••••••••••• 

39 I=19:GOSUB50:A=RND(1 )*7: A=&HD0 03+A*7 : 
POKEA.PEEK(A)+1 :TR=TR+1 : G0SUB44 : IFTR >U2T 
HENRETURN37ELSERETURN 

40 V=(KMOD2=0)*SGN(X-A) : W= ( KM0D2=1 ) *SGN ( 
Y-B) : I =0:GOSUB49: RETURN 

41 IFA$="S"THENOPEN"M.DAT"FOROUTPUTAS#1 : 
F0RI=1TO9:PRINT#1 .H(I) ,H$(I) :NEXT:CLOSEE 
LSEIFA$="L"THENOPEN"M.DAT"FORINPUTAS#1 :F 
0RI = 1T09: INPUT#1 . A . A$: IFA>H ( I ) THENH ( I ) =A 
:H$(I)=A$:NEXT:CLOSEELSENEXT:CLOSE 

42 A=STICK(0) :D=D+10*( ( A=7ANDD>9) - ( A=3) ) 
:PRINTUSING""+E+"26WAIT=####";D; : RETURN 
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43 K=&HD000:FORJ=0TO1 : FORI =0TO6 : B = VAL ( "& 
H"+M IDS ("000 08880880 00" ,1+1+1,2)) :POKEK 
+2,B-24*J*(B>0) :POKEK+3,VAL(MID$("112221 
1" , 1 + 1 .1 ) ) : POKE K + 6, VAL( MI D$(" 2234322", 1 + 
1,1) )»5:K=K + 7: NEXT: NEXT: RETURN 

44 K=&HD000: J =0:GOSUB46: FORI =0TO6: LOCATE 
11 ,5+1: PR INT" I I"; :NEXT :X = MX : Y = MY : 

G0SUB48:PRINTE"$+i 1 "E",+' ' 

"E". &"SPC( 20 ) E" !+" STRINGS (TR,"/D ; :FORI = 
0TO15:LOCATE5,3+I:PRINT"I"; : NEXT: RETURN 

45 X=RND(1 )«57+3:Y=RND(1 )*19+3: IFMIDStMS 
(Y),X,1)<>" "GOT045ELSERETURN 

46 B=0:FORI=0TO6:A=PEEK(K+2) : LOCATE30-30 
*J,6+I+I:POKEK,30-30*J:POKEK+1 ,6+1+1: IFA 
>0THENPOKEK+2.A:GOSUB52:X=50+20*(A=144) : 
A=PEEK(K+6) :A=A+(A-X)*(A>X) : POKEK+4 , A : PO 
KEK+6,A:B=B+(PEEK(K+3)*10+PEEK(K+6)):PRI 
NTUSINGSTRING$(2,29)+CHR$(31 )+"##"; A; 

47 POKEK+5,7:K=K+7:NEXT:LOCATE24-22*J , 1 : 
PRINTUSING"E:###";B: RETURN 

48 FORI=0TO6:LOCATE12,5+I:PRINTMID$(M$(Y 
-3+I),X-3,7); :NEXT:I=0:VPOKE6415,ASC(A$) 
:RETURN 

49 B$=MID$(M$(Y+W) ,X+V,1 ) :IFB$=" "THENX= 
X+V:Y=Y+W:IFPEEK(-853)THENELSEGOSUB48ELS 
EIFB$<>"A"THENRETURNELSEX=X+V:Y=Y+W:Q(J, 
1 )=Q( J,1 ) + 1 :I=20:MID$(M$(Y) , X, 1 )=" " 

50 FORZ = 0TOI : OUT 170, INP( 1 70 ) OR1 28 : OUT1 70 
, I NP( 170) AND 127: NEXT: RETURN 

51 A=A+SGN(MX-A) : B=B+SGN ( MY-B) :IFMX=AAND 
MY=BTHENA=0:RETURNELSEIFMIDS(MS(B) , A, 1 ) = 
" "GOT051ELSEA=1 :RETURN 

52 PRINTCHR$(A)CHR$(A+2)STRING$(2,29)CHR 
$(31 )CHR$(A+1 )CHR$(A+3)CHR$(30) : : RETURN 

53 A$=CHR$(210+(Q(J , ) = >200 ) + ( Q ( J , ) = >30 
0) ) :RETURN 

54 IFU=1THENRETURNELSEA=USR(2) :SCREEN3:F 
ORA=-( 10)*(U=2)TO25+(11 )»(U=2) :POKESHD10 
3,A+10:B$=USR(M$(A) ): NEXT: BEEP: A=0 

55 A=10-A:PSET(MX*4-4,MY#4+40) , A: IFSTRIG 
(0)=0GOTO55ELSESCREEN1 :RETURN 

56 I=USR1 (0) :FORI=0TO3000:NEXT:RETURN 

57 GOSUB56:PUTSPRITE0, (0,208) :A=USR(2):C 
LS:A=USR(3) :RETURN 

58 '••• DATA •••••••••«•••••«•••••••••« 

59 DATA CEABFF00000020,8600037FFFFF80,02 
ABF8400010A0,02020ADFFE10BF,00020A 140210 
20,02720210 0210A0,0203FA14021080,0 020A1 
4021 FA0.02720A17FE10BF, 0202021 4021 020 

60 DATA 8603FA10021080,CE720214021FA0,FE 
02AA1 4021 0A0, 000 17FE103F.5403FE0000 10 
A0, 01 400000001 080, FF7FFFEFFF7FA0.F 000000 
0000 020 , F 0020 080 0FF7E0.F0 020 0800FF7E0 

61 DATA FE03CA03CE23237EFE01CA40CDFE02CA 
81CDFE03CAC4CDFE04CA61CE2192CE228ECE061C 
360 023 10FBAF328DCE320 0D1 320 1D1060EDD2 100 
D0C5DD7E01B7CA00CCDD7E02FE80281 13A02D1B7 
CA89CADD7E02FE982803C389CA3A8DCECDD50 0FE 
01281 1FE032812FE052813FE0728141 1000018 

62 DATA 1211FF00180D1 10001 18081 101001803 
1 100FFC311CBDD7E02B7CA00CCDD7E0 5FE 073069 
CDD5CCDD7E0 5B728084F1 1 070 01 90 D20FC7EDDBE 
002010237E28DDBE012008CD2FCDE607DD770 5AF 
3290CECD2FCDFE8038197EDD4E00CDE2CC571E00 
3A90CEB720243E013290CE7A87201B237E2BDD 

63 DATA 4E01CDE2CC5F16003A90CEB720093E01 
3290CE7BB728CCC31 1 CB3A8DCEB728051 100FF18 
031 10001C311CBD5DD5600DD5E013EB0CDFACCD1 
DD7E00828257DD7E0183835FDD7E06CB3F4FDD7E 
04B930 04DD360507CDEFCCFEB02857FEB8203D21 
00D03A8DCEB728032131D0060723237EB72022 



64 DATA 3A8DCEB728043EA818023E90772B732B 
722323232323237E2B2B773EB0CDFACC 18072323 
2323231 0D1CD56CCDD5600DD5E0179FEFF2808CD 
2FCDE607DD770 5DD720 0DD7301DD7E02CDFACC2A 
90CEDD7E06CB3FCB3FDDBE0438053E43CD4D0 0C3 
BBCB3A8DCEB728040E0018020E1EDD7E00B920 

65 DATA 1DDD7E043CDDBE0638013DDD77042A8E 
CEDD7E0077DD7E01237723228ECEDD7E04FEE638 
0FDD5600DD5E013EB0CDFACCAFDD7702DD7E02B7 
200B3A8DCE5F 160021 00 D1 1934C1 1 10700DD1978 
FE0820053E01328DCE05C239CA060E2192CE1100 
1B7E4F237EEB878787B720023ED1CD4D002379 

66 DATA 878787CD4D0023AFCD4D00233E0FCD4D 
0023EB2310D8C9E5CDD5CC0E0723237E2B2BB728 
657EBA2061237E2BBB20 5B232323237EDD4E0391 
F53A8DCEB728077AFE1E280818097AB728021803 
F191F5F1773003DD34060EFF2A8ECE7223732322 
8ECEDD7E03875F3E06CD93003E071E1CCD9300 

67 DATA 3E0A1E10CD93003E0C1E08CD93003E0D 
1E01CD9300180A232323232323230D2089E1C921 
00D03A8DCEB720032131D0C9B9280538053E01C9 
AFC93EFFC9E5D5CD1ECDCD4A0 0D1E1C94FE5D5CD 
1ECD79CD4D00233C3CCD4D0011 1 F00193DCD4D00 
3C3C23CD4D002290CED1E1C96B260029292929 

68 DATA 295A1600191 1 00 1 81 9C9C5ED4B8BCEED 
5F81804847ED438BCEC1C921EF0301F8027DE607 
FE0120072BCD4A00231809B72003AF1803CD4A00 
5FE6E0 577BCB3FE60FB257CB3FB25F7ACB3FCB3F 
E608B2B3CB3FCD4D002B0B78B120C6C906082100 
002203D1C52A03D11 105D1 1 9545D2A03D1 1 00 

69 DATA 01CD4A0012AFCD4D003E0823133D20FB 
0B79B020EC2A03D1 23220 3D 1 CI 10D221 0201 1 8A 
CE01200 0CD590 0C906082100 002203D12A03D111 
5D1 1 9545 D2A03D 1 C5 1 000 11ACD4D0 03E 0823 13 
3D20FB0B79B020F02A03D1232203D1C110D621BA 
CE 11 00200 12000CD5C00C91ACB3F47EB235E23 

70 DATA 56EB3A03D14FCB3FCB3FCB3F5779E607 
5F7ECD3CCE878787874F237E23CD3CCEB1EBCD4D 
00EB131313131313131310E1C9D92151CE1159CE 
0608BE20031A1 804231 31 0F6D9C920C3C8C9CAD0 
D1D2010E0B030F09080606090E1078FE012808FE 
0928043EB018023EC051CB22151558CB231C1C 

71 DATA F5C5CDFACCC1F10D20EC10D9C9AA5500 

72 DATA 0749EF5217555553494E4759766F4F1F 
C020F0108848448474E0C82CF6F2F8F8,B1 

73 DATA 03074DE846A94F45585B4D567146491F 
C0E07010D030E0 581CDCBA66966898F8.B1 

74 DATA 00000000213219000400050900010100 
00 0002C64C189040D08844C0808080,B1 

75 DATA 070D080B080F001B17332D2D20363577 
F050006080F0807088FCF06C0CF0F4F4,91 

76 DATA 0E1C180B172C2D4E102D1B1D2C227537 
040404A4A404E4E404AED06C1CE0D0D8-91 

77 DATA 000000070F1702010200000912030101 
00000080C000E000000000A848A0C0C0,91 

78 DATA 40BF4040404040404040404040404040 
00FF0000000000000000000000000000,E1 

79 DATA 01071F7F7F7F7F7F7F7F7F7F1F070100 
80E0F8FEFAEEBAEEBAEEBAEEB8E080 0,31 

80 DATA 40BF4055405540554055405540554055 
00FF0055005500550055005500550055,F1 

81 DATA 98249A99ADFABC7E021E2A76AED4B4F8 
003874744CBAC67CF0 

82 DATA 54383844DAA982BA625AA29A46DA80BA 
70F8400044BA7838.F0 

83 '•<M.T.GODDESS>«<Tomoo Suzuki 222Yoko 
hamashiKouhokuku Tor iyamacho! 285-3-1 03 >• 
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1 COLOR15.0.0:SCREEN5.2:SETPAGE. 1 :CLS:FO 
RI=1TO8:COLOR=(I.0.0,I-1 ) : CIRCLE (8, 8) ,9- 
I. I: CIRCLE (28. 8) . 9-1 , 9+1* . 8 : COLOR= ( 9+ I* . 
8.0.1-1,0) : NEXT :SETPAGE.0: OPEN" GRP:"AS#1 

2 S$ = STRIN G$(6.0 ) : SPRITES ( ) =S$ + "MB$° ° ° 
° o7" + SS + ' r 3S^^^HHB3S3£^ rr : COLOR= ( 1 5 . 7 , 6 , 4 ) 

3 GOSUB9:PSET(90.50) :PRINT#1 ,"SS$ :/*i07° 
":R=1 :S = 0:G = 255:C = 211 :PUTSPRITE0. .15 

4 IFSTICK(0)THENCLS:GOSUB9:X=20:Y=170:PU 
TSPRITE0, (X.Y) : J=0:P=0:H=180:L=16:ELSE4 

5 FOR I=0TOR*2+2: COPY (0.0)-(L.L) ,1T0(RND( 
1 )*H+40,RND(1 )*H+10) .0,TPSET:NEXT:COPY(2 
0,0)-(36.L) ,1TO(230.RND(1 )*H+10) .0.TPSET 

6 X = X+1 :S = S + 1 :T=POINT(X.Y) : IFT>1 ANDK9TH 
ENPSEK70.L) :PRINT#1 , S ; "ZA.7*? ! " : G0T03ELS 
EIFT>10THENPSET(60.L) :PRINT#1 ,R;"*yO<)7 * 
?£h1T:R=R+1 :FORP = 0TO7:GOSUB10:NEXT:GOTO4 

7 IFSTRIG(0)THENP=P-(P<8)ELSEIFP>0THENJ= 
P:GOSUB10:CIRCLE(X.Y+L) . P :S=S+P-1 : P=0 

8 Y=Y-J: J=J+(J>-4) :PUTSPRITE0. (X-8.Y-8) : 
IFABS(J) >8THENJ=(J<0)#8:GOTO6ELSE6 

9 FORI=0TO8:LINE(I,I)-(G-I . C- I ) . I . B : NEXT 

10 SOUND8,15:FORI=P*8TOPSTEP-8:SOUND0,25 
0-P*20:SOUND0.1 : NEXT : DEF I NTA-Z : RETURN 



fT2C35£ r BjB:CHR$(£55h 'XjteCHF\$(R54)Vt„ fcJtfU 
RS(2B4)B, BB±?ISgBlcSx*-ro 
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t*: h5>^>y MJfa. fXh 
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A, Ted;, 

5 : Ho^o^t ? 

t*: X^-f PfOTftSlcJ^T. 

K. v. 1*2*-:7±<DK, 

5, V, ^CO^^-v K 2 ^-^7 

^-xj-.wk. ia tcn^ht 

©£#&§„ ^»f&»<l:b 

>X«n, *cDb - xh>r 

*# 3 0# % ■t^.^"Klt'-§A,f„ 

5 : Ttt/tlJ"? 
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X&©bAh>^W-t+l3:'OOU. 
H&6. V©ff3Are*f,, 
£©>b'Xh^£#ti-|3:'O^te 
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bA h >S-rsIli*Cff-rA,fe-d: 
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5 : L>*. bAh>§-$rgliff 
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130 bf7.h>^» 

140-150 %my? 

160 sangtr^^-Ktao 



170 y^y-y^ay^-wio 

yyy<pyay^-WiD 
zsmskVJ 
190—200 ?zL--y?+i-7 

210-220 itS+t:?' 

230-240 m&yy 

250-260 T'-^tz-^tf^ 

270-2B0 x-^n-K+r^ 
290-310 7 7-YJUSA^+t^ 

320-360 y^y-fyf?*—? 

(ffln~bO~£BfrZfy) 

370 ^7-r^x-^/S 



vs/>HJR!& 



BOO0-B0BO 
B061-BQBS 
B800-DOQO 




(7) ? 

t*: hDyrt-yp-9=5V4-y 

= : /3n~A,„ tt?, h^vK 
'Vh^T, K<Dta1sBL , >X'vC7)3' 

3"v hcottftfj-s/i/T'o,*:. e 

CDfg1sK^TO/tli\HM7)l;:/ 

*•: git, h^^vv b£?S 

O"o 

t*- =£ : AAA/ 




4 '/\\ 

*'JXSffifjl90, ?30C35-5 r ilj[3, CHR$(144)ffl5:?r^o liBrBgacJl*.*^ 



TRUMPET .FD2 



10 CALLKANJI:CALLMUSIC:CLEAR3BB,&HAFFF:S 

CREEN5.B,B:COLOR15.B.B:SETPAGEB.B:CLS:LO 

CATE6 . 7 : PRINT"*****Ki*2*y*)<*-.M:)*'}*'"" : FORI 

=1TO14:COL0R=(I,B,B,B) :NEXT 

2B READA:0NAG0T03B ,48.58, 68, 7B.8B 

3B READA.B.C.D.E:FORI=BTOD:LINE(A+I,B)-( 

A+I.B+C) , E-I:LINE(A-I,B)-(A-I,B+C) .E-I:N 

EXT:G0T02B 

40 READA.B.C.D.E:F0RI=8T0D:LINE(A.B+I)-( 

A+C.B+I),E-I:LINE(A.B-I)-(A+C.B-I),E-I:N 

EXT:GOT02B 

50 READA.B.C.D.E.F.G:FORI=BTOD:CIRCLE(A, 

B) .C + I.E-I .F.G:CIRCLE(A.B) iC-I ■ E-I tFiG:N 

EXT:GOT02B 

60 FORI=2T07: CIRCLE (168,5+1*6) .95.1.4.83 

.6.28. .4-. 85*1 -.CIRCLE (168 .95- 1*6) .95.1. B 

,1.46..4-.B5*I:LINE(178,43+I)-(17B,57-I) 

.I:PAINT(255.5B) . I :NEXT:GOTO20 

70 SETPAGE.1 : CLS : COPY ( 173. B)- (255. IBB) . 

TO(B.B) .1 :GOTO20 

80 A$=" AFCDD5004F 060021 61 B0093AEFFB4F7EC 

329B0CB512002D602CB592002D601CB612002D60 

332F8F7C9326ABB21B276CB512BB43EB118B1AFC 

D77B123232323C8592BB43EB11881AFCD77B1232 

32323CB612BB43EB118B1AFCD77B13A6ABBC313B 

01E2E353A3E41 44464800" 

90 FORI=0TO1B6:POKE&HB0B0+I . VAL ( "&H"+MID 

$(A$.I«2+1 .2) ) :NEXT:DEFUSR=&HB000:DEFUSR 

1=342:DIMAX(15) : FORI=BT01 5 : RE ADAS : AX ( I ) = 

VAL("&H"+A$) :NEXT:CALLV0ICEC0PY(AX,ffl63) : 

CALL PITCH (440) : PLAY#2 > "T255363V1 5L64" 

100 COPY (158.45) -(200. 100) . 1 TO( 173 .45 ) . 

, TPSET:FORI=1T07:COLOR=(I,I .1.0) :COLOR=( 

I +7. I. I. I) :NEXT:SETPAGE.0:LOCATE6.7:PRIN 

T*9*->+i+y*b+<i*?v-<*'} ":L0CATE6. 10: PRINT 

"1991 MIJINKO-SOFT":R=10 

11B SPRITE$(B)=CHR$(255)+STRING$(7,&H38) 

:SPRITE$(1 )=STRING$(7.B)+CHR$<254) :FORI= 

BT02:PUTSPRITEI. (92+1*1 2 . 35 ) . 1 3. B :NEXT 

120 ONKEYGOSUB190.210.230.250.270:GOSUB1 

70:LOCATE2B.8:PRINT"C*3^K3 

130 U=USR(B) :GOSUB14B:GOTO130 

140 IFU=TTHENU$="R64"ELSEIFU<31THENU$="a 

50R64"ELSEU$="ffl63N"+STR$(U) 

15B PLAY#2.U$:T=U:RETURN 

160 PLAY#2.""."T12BV15aB06E4C4": RETURN 

17B FORI = 1T05: KEY ( I JON : NEXT: RETURN 

180 FORI=1T05:KEY( I )OFF: NEXT: RETURN 

190 GOSUB180:GOSU3160:LOCATE20.8:PRINT"C 

IMS)*] 

200 S=STICK(0) :R=R-(S=3)*(R>0)+(S=7)*(R< 

20) :COPY(0.0)-(82.100) .1 TO (173.0) .0:COPY 

(143+R«1 .5. 45) -(200.1 BB) .1TO(1 73.45 ) .B.T 

PSET:CALLPITCH(43B + R) : IF PEEK ( -1 B44) =251 T 

HENGOSUB160: RETURN 120ELSE 20 

210 GOSUB180:GOSUB160:LOCATE20.8:PRINT"C 

< A i>]":Z=&HB800 



220 U=USR(0) : GOSUB 140: POKE Z.U:Z=Z+1 :IFZ = 

&HD0 00ORPEEK< -1044) =251 THENPOKEZ . : GOSUB 

160:RETURN120ELSE220 

230 GOSUB 180: GOSUB1 60: LOCATE20. 8: PRINT" C 

»hHa]":Z=&HB800 

240 U=PEEK(Z) :IFU = 0ORPEEK( -1044) =251 THEN 

GOSUB1 60: RETURN 120ELSEGOSUB1 40 :Z=Z+1 :GOT 

0240 

250 GOSU8180:GOSU8160:LOCATE20.8:PRINT"C 

*a*O3":GOSUB290 

260 BSAVEFS+" .TDT" > &HB800 , &HD000 : L0CATE6 

.9:PRINTSPC(20) :GOSUB1 60 : RETURN 120 

270 GOSUB180:GOSUB160:LOCATE20.8:PRINT"C 

?2»tn":GOSUB290 

280 BLOADFS+" . TDT" : L0CATE6 . 9 : PRINTSPC ( 20 

) :GOSUB160:RETURN120 

290 U=USR1 (0) :L0CATE6.9:PRINT"File Name: 

":F$="" 

30 A$=INKEY$:IFA$=CHR$(13)THENRETURNELS 

EIFA$=CHR$(8)THENF$=LEFT$(F$,LEN(F$)+(LE 

N(F$)>0) )ELSEIFAS=CHR$(27)THENLOCATE6.9: 

PRINTSPC (20) : GOSUB 16B : RETURN 12BELSEF$=LE 

FT$(F$+A$.8) 

310 LOCATE17.9:PRINTF$SPC(8) :GOTO300 

320 DATA2.0.5B.2.6.14.2.3.5B.3.5.14.2.7, 

50. 0. 4. 14. 2. 8. 50. 0.3. 14. 2. 9, 50. 0.4. 14. 2. 

10. 50. 1B. 3. 14. 2. 90. 50. 39. 5. 6. 2. 130. 50. 39 

.6.7.1.95.44.3.6.14.1 . 1 B7 . 44 .3.6. 14 . 1 .11 

9. 44. 3. 6. 14.1. 95. 48, 17. 6. 7.1. 107. 48. 17. 6 

.7.1 .119.48.17.6.7.1 ,95.66.38.5.6.1 .107. 

66.38,5.6 

330 DATA1 .119,66.38.5.6.1.95.185.3.5.14. 

1 .1B7.1B5. 3. 5.1 4.1 ,119.185.3,5,14,3.55,7 

1, 21, 3, 7.1. 57. 4. 71. 2. 21, 58,25, 4, 6. 2. 47. 5 

8. 88. 3. 7, 2. 55. 92,28. 3. 7. 3. 68. 88, 4. 3. 6.1. 

57 . 4 . 72 . 2 . 69 . 84 , 1 9 . 3 . 1 3 . 2 . 69 , 92 , 1 9 , 3 . 1 3 . 

2, 89, 84, 3. 3, 6. 2. 89. 92. 5, 3. 6. 2. 93. 84. 8. 2 

340 DATA6 .4. 3. 99. 88. 4, 3. 6. 1.57. 4. 72. 2. 10 

0, 84, 4, 3, 13, 2, 1 88, 92, 4, 3, 13, 2, 1B5, 84. 2, 3 

.6.2.105.92.2,3,6.2.108.84,0,2,6.2.108.9 

2.0,2.6.2.136.50.35.3.13.2.172.50.0.4.14 

.3.170.88.4.3.6.4.71.1 .58.2.124.84.45.3. 

13.2.124,92.45.3.13.2.132.84.0.4,14,2 

350 DATA! 26 ,88,45,3.13,2.172.88.8,4,14.2 

. 12B.88.5.3.6,2,1 19, 88.B.2.6, 2, 111 ,98.4. 

3. 6. 2, 112. 78. 2. 2. 4. 2. IBB. 7B. 2. 2. 4. 2. 112. 

99, 2, 2, 4, 2. IBB, 99, 2, 2, 4, 3, 142, 75, 5, a, 12. 

8, 6. 28. 3, 82, 75, 5. B, 12, 2. 9, 8. 5.1, 78, 71, 2, 

B.12,1 ,86.71 .2.8.12 

360 DATA3.133.41.5.B.12.1 .45.4.72.2.152. 

98.19.8.11 .3,152.98,1 ,1 ,12.8.6.28,3.155. 

98.1.1,12,0.6.28.2.164.98.0.1,11,2,166,9 

8,0,1,11.3.172.87.9,0.5.4.8.0.3.5.3.182. 

68.18.3.6,8.2,1 .58,3.182.78.10,3,6,4.71 . 

6, 3,1 63, 69, 31, 3, 6, 5. 8, 8. 4, 2,173,58, 8. 3 

370 DATA 13.2.173.88.8.3.13.3.185.75.16.0 

.5,4.8,8.1.2,143,58,29,3.5,2,143.88,29,3 

,5,1.176.54,3B,1,11,6,a,8,8,8,B,E,e,0,16 

31 ,2BF1 ,4B,B.2a71 .2BF2.6B.0 
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mt&tt 100m 



E3k/2+VRAM64K BY Cock-M 



lUfjltt^-V 



,'{rJj .1 






xy^t-mm 



p. 






■■■■y^-rv-cDxmm 

■•••tifflg 



^^y-i$-'s 







9v7(irv9) i^t, Uric 

1*105. 2m/ 
aCl\£A;U'rKJ> N ) : *>. ^>y 

^icfrt^ru/j-tco^-f E^^ 







-9": *.. t'Ctf? 

: K = K + (K> 4 



K = K+ 1 
2)* 4 3 

K = (K+ 1 



IMOD4 3 



LTI5LO&*,, ^eoiSo^S. 
a: o/b, ^Tltt^o&ct 
PR INT#1, H 10 

©#£ic, : "m'^onnso 

T^ b-r L Tf&tf m^-f > £ 

fT6« 

I F X > 4 9 . 5 
(DfctlZ 
ORP<4 5 

^--f + x3i!i*roM^tr3SL 
a : t~/l. ft^at*. 



G ( 



I 



(X> 



I =-S T R I 
I -(X> 5 5) 

I = - S T R I G ( ) 

5 5) 

a: ivfs, llti'i/j^A^co&o 



I 



s, 



•■••aas^ffl 



^□^A 



1 WlHSiSS -x^^-f h 

MA-yy 
£ OIIifF/f 



y^^v-mmn.' *-y- 
7 leiiite-gs/^i-rh 



0^-eA.o -HZmf-h^tbtzb, ]00mW±}g|fS3;T J f=»^l.\T< 
£&U„ S*fctftSI?iSS««S©Z'To ^-V^-^-^ftS&LU 

*t+A.(7«^P58#PS : Cock-M;£)„ SSF«*AX&U3<fc5C*<j»l 

(9B*PBHMR : Cock-M 

;3e)o S<«0*bttfg»C, 

S«Mffl«££0R±fflA£Z\ 

l277tU5-e > J'-5 r y«Sfc6, 

■g-niiST^o 'K-^c-eotz'y 
coci<-m mm -km 




Stf @as&=fil 



YARINAGE.FD2 



1 C0L0R15.4.1 :SCREEN2,1 . RND(-TIME) : SPRIT 
E$(0) ="*♦*" :0PEN"GRP: " AS 1 

2 CLS: LINE (0,1 70) -(255, 198) . 6 , BF : COLOR , 6 
:FORI=0TO10:J=I*18+50:LINE(J.170)-(J,173 
) .15: PSETU-1 0.180) . 1 5+ ( I<2) *9 : PRINT#1 .1 
*10: NEXT: LINE (2, 11 )-(5.60) , 1 5 . B : COLOR ,4 

3 X=0:K=RND(1 ) *50 : M=0 : S=0 : SS=S : BEEP : FORI 
=0TO1 :K=K+1 :K=K+(K>42)*43:SS=S:S=STICK(0 
) :M = M-(SSOS)/14:X = X + M:PUTSPRITE0> (3.K+1 
2) .8:PUTSPRITE1 , (X.163) . 1 5 . :C0L0R= (8 .8- 
ABS(20-K)/3.0.0) :I=-STRIG(0) :I=I-(X>55) 

4 NEXT:L=K:Q=160:P=X:M=M+K/8.5:K=61-K*2 

5 C=4:GOSUB8:P=P+M:K=K-(1 . 2+ ( ABS (20-L ) ) / 
10) :Q=Q-K/10:C=15:GOSUB8:IFQ-K/8<170THEN 
5 

3 S0UND7.245:S0UND6.8:PLAY"SM999D16":PSE 
T(80.50) .4:IFX>49.5THENPRINT#1 ,"1t-%" ; :P 
= 45 

7 H=INT( (P-45)/ 18*1 000) : PRINT* 1 .H/100:FO 
RI=0TO2000:NEXT:GOTO 2 

8 LINE(P,Q)-(P+5,Q-K/8) .C:RETURN 
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l>tel^mfflft-£9<?U7>m% 
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•nmm(if-ym)mmmbtz 

®iiiai*«fe/ 

mmmm mmammm ? =? ?w 

££• [SSH^ffii] A£tfS 

•ff l on?y'tb L L P S G b V 7. 
TOP+-^ffUfc«^C-T5 

/jaiss{ti-7g)//3vfcfcy 

7 'J 7] KFe^S iiEMS 






vtzt 
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U'tBU£PSGb£>';^t£5E 

(gfeg)»B®^Mgc-rs» 



mmnm-v-j 
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VM 



H^mm9^mmmm 



£•=&<!: ©©ill;: =&£■§ 

ttfflS&IIl;:*^ 
(MORO) 




KURAYAMI . FD2 



1 SCREEN 1 . ,RND(-TIME) : DEFINTA-Z : COLOR 1 5 . 
0.0:FORI = 0TO2:SOUND8. 1 5 : F0RJ = - 1 50TO1 50 : S 
OUND0.100+ABS(J) : N EXT :SOUND8.0: NEXT 

2 SOUND7,7:SOUND6.0:SOUND8.15:SOUND8.0:K 
=K-(STICK(0)=0) :FORI=0TO300:NEXT:IFK=80T 
HEN6ELSEIFRNDU )< .8THEW2 

3 BEEP:T=RND(1 )#3+1 : 0NTG0SUB7 , 8 . 9: N=0 

f N=N+1 :F=1 :S=STICK(0) : IFN = MTHENIF (T=10R 
T=3)ANDS=5THENF=0ELSEIF(T=2ORT=3)AND(S=3 
ORS=7)THENF=0ELSEELSE4 

5 GOSUB10:SOUND12.50:IFFTHENCOLOR.8.8:PO 
KE-869-1 : BEEP: RUNELSEFORI=0TO500: NEXT: GO 
T02 

6 FORI =0TO800: NEXT : G0SUB9: G0SUB1 : S0UND1 
2>255:COLOR.10,10:END 

7 SOUND6.255:SOUND7.247:PLAY"S8M400CCC": 
M=60: RETURN 

8 J=0:FORI=0TO13: J= J+1 70 :S0UNDI , JM0D256: 
NEXT:M=60:RETURN 

9 SOUND8,15:FORI=0TO255:SOUND0,I:NEXT:M= 
1 :RETURN 

10 S0UND8. 16: SOUND 13.1 : S0UND7 . 7: S0UND6 , 2 

55:RETURN 
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■7D^5A»1« 



©) B*lf* 
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•^gt^tearog) 
•^a/rSH^ctBfc^©^ 
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oAcbffiSQSB), 77y-»-^i5SiqiDr»9Sru«pu^orrat. 

-A9BP*3!oiiUjSi7orU5o b^JUMSSC APaH±ffltM8<t 
S«tl£^fflHr-S5 HS/c*torS5SK<, 0CT1778£/utfffl 




TAIFUU 
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1 COLOR15.5. 
B.C.D:LINE(A 
■48.150.96.1 
15.30.230.48 
G=0TO1 :A$="" 
)*255) :NEXT 
4:S = 1 

2 P=1-P:PUTS 
-(S>1ANDS<5) 
NDS<7)) :IFST 
= 1 :S = S + 1 :IFS 

3 IFPOINT(X+ 
16) ,3.5:SC=S 

4 S0UND8>0*2 

5 IFX<-80RX> 
P:"AS#1 :FORF 

fc<TA. ";SC;"Z 

6 G0T02 



5:SCREEN2.3:FORF=0TO4:READA, 
.B)-(C.D) .3.BF:NEXTF:DATA128 
60.76.190.94.160,48.230.70.2 
.215.10.230.25:DEFINTA-Z:FOR 
:FORF=0TO35:A$=A$+CHR$(RND(1 
SPRITES (G )=A$: NEXT :X=-8:Y=1 8 

PRITE0. (X.Y) .15.P:X=X+((S>5) 
) :Y=Y+( (S=10RS=20RS=8)-(S>3A 
ICKC1 )=0THEN0=0+1 :IF0>8THEN0 
>8THENS=1 

16,Y+16)=3THENCIRCLE(X+16.Y+ 
C+1 

S0UND7.55 
2480RY<-180RY>184THEN0PEN"GR 
=0TO1 :PSET(99+F.170) :PRINT#1 
fe":PSET(120 + F.180) :PRINT#1 ." 
A,":NEXTF:P0KE-869. 1 : RUN 
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7n^AJRI8 



O) ttlJRtb 






• 7k¥*§£3l< : lDtl30(Q) 
ISSJS^COBzpfflo 5.3(R)tt, 
XKl©!tf!r'ttS7K¥$§©X 

WoS a 15 IS, StS?©7K¥& 
2©S£„ r P5+ + 15* Jj 

«no+ +i5*(j+i)jt 

f3ifi)©5i^§l< : &*§©«£© 
XfiE^c!: YfiK^tf d:=fclc5. 
3(R)-CJ5BS^©X75|q]©-r 
fl£#, r 9-Jj« r 10-(J + 

?>59)\s-y(DmioD 

(©) mnmomm 

H©;l*»MM)Wb»Jl/-:7 



o)mnm 



mm&m< : dr£6©*£r'fc, 
B.B(R)BSS©X7i [ql©fn 

5BS*i©Y7i|S]fflfnt2ffl 

«*©YfiK»^Sft1-A\ r R * 

(ID- I +J)jB r R * (10- 

I )+R* Jjt(2a©RBffi 



r 5*Qj» r 5* I +5* Jjd: 
(E^©5B-&n^nBD*^il 



(©)-(©) 14H 



SIS 



^H£l,^€!ft«S75=&fflt> 

o7c<jgfttf&ni§£, *tt: 
*'>h0tt, 7K¥l§<c:f4«>©3i 
ffl^g^45JtCbr, £4&©*§S 
tt7K¥l§©SiRfflE^© 1 ©§J 
£©g£CU USSlttEoffl 

¥7? (q) Cfct Ur 30g^f® 175 
©£-£dfc„ 

St§?©12©g£;£*-etf 
7->hEllJ15(f4«)©*i©^& 
B7.5tur}H< — t'5Ur 
iJDtonsci;5ic<iisiciy7s^ 

^fc©/c55M,#SElffl^S 

iiio£07c6L^©r\ =nm 

?^<Sx.H' r 5.3j r B.6j r 5jiU 

fcSU©^8litf t)^S 7c 5 5 

(Hi, ne#ps) 

7cffl7>=feL'tt&l^\ s©7cto 

cjiSL.ra<t, si ©pa 

1 NTXBCLSriqlUClttf 
r'$5L-(CLS©B-5tfiiL^), 
SCREENXtCOLORS: 
ffllliff^25C1-nB'CLS=b^ 

©t, L I NEXcfc9CLS£ 
{£5l3o7T^7y-9 J f>'rn/c35o 
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1 R = 5.3 
D(I.J)= 
AINT(0, 

2 LINE( 
5+R*(10 
10+R*(1 
J) +15*1 

3 IFINK 
) .1 .BF: 

4 LINE( 
6+R*(10 
+R*(I-J 
*Q-D(J+ 
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6 

7 

8 

9 

10 

11 

12 

13 

U 

15 



IFINK 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



Q=130:F 

A»5:NEXT 

0) .1 :FOR 

10+R*(10 

-I)+15*J 

0-J)+15* 

>Q+R*J+R 

EY$ = "''TH 

R=8.6:F0 

10+R*(10 

-I+J) .65 

) ,60+5*Q 

1 ,1) ) .15 

EY$=""TH 

6 » 6 * 6 » 6 

5.5.5.5 

4.4.4.4 

3.3.3.3 

3.3.3.3 

3 > 3 » 3 » 3 

2.2.2,2 

1.1.1.1 

1.1,1.1 

1,1.1.1 



ORI=0TO9:F 
J,I:SCREEN 
I=0TO9:FOR 

-i) + 15*j f a 

,Q+R*I-D(I 

I,Q+R*J-D( 

-D(J+1 ,1) ) 

EN3ELSELIN 

RI=0TO9:FO 

-I+J) ,60+5 

+5*Q-D(I, J 

-D(J.I) )-( 

:NEXTJ,I 

EN5ELSE:SC 

» 7 » 6 » 6 > 6 » 6 

,6,5,5,5.5 

.5.4.4.4,4 

,4,3,3,3,3 

,4,3,3,3,3 

,4,3,3,3,3 

,3,2,2.2,2 

,2,1,1,1,1 

,2,1.1,1,1 

,2,1,1,1,1 



ORJ=0TO9:READA: 
2:COLOR15,1 ,1 :P 
J=0TO8 

+R*I-D(I, J))-(2 
,J + D) ,15:LINE( 
J,I))-(10+R*(9- 
,15:NEXTJ,I 
E(0,0)-(250,210 
RJ=0TO8:Q=I+J 
*Q-D(I, J) )-(18. 
+ 1)) ,15:LIN-E(96 
87+R*(I-J) ,65+5 

REEN0:LIST6- 
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,1 
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S( r ^j^lS©HftC/5'j^S 
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7T-A01BB 



0)»»1 



Hltff»A. B(Dfimz£D± 
LWUo X7?fq]!3:fi£or33< 



(g)»B2 

• ^-f A^S#Sm*^(Y)¥ 

ft • y^y-fvommtot-n 

GDfc«M 

®2'J7¥!IS 



•7r-A^ffiorun«' [7t- 
A^;i-r/^^g/ffiofc7r- 



(©) ^f-hA-JK- 

•^YA^JS^X^te-ySi^ 
•$!fltg#±*-A;^*>« U 

yiy-< 



1 " 



1 ©3fjg© r l70j£f8£l/fc 

sis^p^^ASgj©aoetf, 

"r^r^^©gHfc5-5^ fc 

K-K-2,-2 dr.W 

^^MiJC^1b-r§©l3:<i:'-5^d: 



aSC±0.5^J)Dx.^Jt^iS^ 
^©^SICM^Sffl/co JS 

g^HIMCT-SCtt, D 
E F S N G (^fllSSL m®%& 
6ffih DEFDBLdSMJfffik 
^SS?S¥l4ffi)«^3A\^fcS 



^©^^umii^sr+^r, 

DEFSNG£i£5d;9 r /j£ 
O I j--g> S 5 tf ;ISLA V >& I V 
&£s, r DEF I NT A- 

lM-^r©MWfHSgffiC& 
§„g£/ui:©:7n^AC r D 
EF I NT A-Zjtf»nr 

®tz5z> (ANTARES) 



iiinmaiMtaC'tT 





'I'SW} 



t 



0£?t>\ llBI6Bf\tttfflare»f 
©Hi§!S?±tf1I|{©±ttfi : £ 1 «r 

*©iS?BJ:*ottS^*BC 



OHM 



,FD2 



1 DEFINTA-Z:C0L0R15,1 , 1 : SCREEN 1 , RND(-TIM 
E) :WIDTH32:KEY0FF:VP0KE8215,34:VP0KE8216 
,170:PLAY"V15S0":FORI=0TO15:VPOKE1160+I- 
13168*(I>7) ,VAL("&H"+MID$(" 00 18244242246 
600 183C187E99429966". 1*2+1 .2)) :NEXT:L=1 

2 S0UND7,163:E$=CHR$(27)+"Y":X=92:Y=88:A 
=0:B=0:P=0:T=500:CLS:FORI=0TO21 : PR I NT" 7" 
SPC (22)" 7" : NEXT: C$ = " 7777999977" : PR INTCS" 
??39"C$E$"!8Level"L:F0RI=-11T0L:L0CATERN 
D(1 )*22+1 ,10-1: PRINT"*": NEXT 

3 S=STICK(0):A=A+(S=7)*2-(S=3)*2:B=B+2+( 
X>79ANDX<104)*4:X=X+A:Y=Y+B¥2:A=A-SGN(A) 
:B=B-SGN(B) :T=T-1 : IFX<80RX>1 76THENX= ( (X- 
8)¥168)»168+8:A=-A 

4 IFY<0ORY>168THENY=(Y¥168)*168:B=-B 

5 PRINTE$"#8T"T:PUTSPRITE0. (X.Y-1 ) .7. 

6 V=(X+4)¥8:W=(Y+4)¥8:IFVPEEK(6144+V+W*3 
2)>32THENL0CATEV.W:PRINT" " : S0UND6,, 9 : PLA 
Y"M999A16":P=P+1 : IFP>L+1 1 THENFORI=0TO31 9 
:S0UND8.15:S0UND6. ( 31 9- I ) ¥1 : NEXT : S0UND8 
,0:PRINTE$"*+OK!":GOSUB8: L=L-(L<9) :G0T02 

7 IFTTHEN3ELSEPRINTE$"*(You Lost.":SOUND 
6,31 :PLAY"M9999A1":G0SUB8:RUN 

8 IFSTICK(0)=1THENRETURNELSE8 
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\jFomm 

d, m uFocDmmmmm 

V, Q UFOfflSI 
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i : ,nm 

P V57.A* 

r zmmmit 

s i*ji/=£-sta 

T X37" 

X. Y *-V)« 



VUV31xim 



-+f- 



10 SOfflfSS/MSfflBB/i' 
> ^ -; \J bffl 3 *-?e©}§;£/ 
HJm)Wffitt>/ U F 0©4*JS 
S^a^/Xzi7 , ©a^ 
20 X^-f SA^-VfflSS 

3D -?O^Kh/-h-V)\;(m 
40-70 ^-VJWDtt^tiiUf 1 
80 *-VJb©S^/UFO© 
90-100 UFO©IS^tBL^ 



110 UFO©S?m/b- 

©#6&H b-+f-©?l^ 

IPO b-+/-0tfnWJS=>m 

F'Ufc6^140A./i^JU^- 

130 U-+f-«3!i-r/X^il< 

$—mmo)m^ o &&fti7o 
/\ 

140 UFOfflUfS/xfiHtg/ 

tH^WM® / X =1 7©S^/ U 

-tf-©;!*^ 

150 UFO©*<ijlS§i£;*£> 

160 X=l7©*S/UFO© 
JHI£Ii®©± / \ 

170 ^-A7T-;k-©s^/ 

180 X^i'hA^-Vf- 

^(*-v;i/, UFO, g«, s 
SSCDH1C) 



MS 



}t40£50, fjB0i:70ttiqlKC 
AblELSEr-EofflWo 

tm&i^tt©*ifiif£fi^ttr, 




' "" " \fiUi.. 



// i^/ ' ■ til ^ 



vtzt 



tf->li~/ 



^©fc^i;fc3<lc»:ffcl\cfc5&t,©#l/rfce00jSlK5ffltfr>o(i:© 

^;ti;*a:ufr<t,ntinsr^yo^ei33 ; bU5u©'cvox^»-Dri , i 




UFQ 



.FD2 



40 
50 
60 
70 
80 



10 COLOR15.1 .1 :SCREEN5,3:OPEN"GRP:"AS#1 : 
DEFINTA-Z:ONINTERVAL=180GOSUB150: INTERVA 
LON:R=RND(-TIME) :S=87 : GOSUB1 50 : GOSUB160 
20 FORI=0TO3:READA$:SPRITE$(I)=A$:NEXT:P 
UTSPRITE2. (120.101) . 7. 2 : PSET (34 . 200 ) :PRI 
NT#1 ."ENERGY": LINE (87,200) -(137,208) ,6,B 
F: LINE (26, 26) -(226, 186) ,15,B 
30 P=PAD(12) :X=X+PAD(13) :Y=Y+PAD(14) 

IFX<27THENX=27 

IFX>216THENX=216 

IFY<26THENY=26 

IFY>175THENY=175 

PUTSPRITE0, (X,Y) . 15:D=D+(V>A)*2+1 :V = D 
+V:M=M+(Q>B)*2+1 :Q=M+Q 
90 IFV<0ORV>240THEND=0 
100 IFQ<0ORQ>195THENM=0 

110 PUTSPRITE1 , (V,Q) ,14,1 :IFSTRIG(1 )THEN 
LINE ( 126,1 06 )-(X+4,Y+5) ,11ELSE30 
120 IFX-14<VANDX+8>VANDY-10<QANDY+10>QTH 
EN140ELSELINE(S,200)-(S,208),4:S=S+1 
130 LINE (126.1 06) -(X+4.Y+5) ,1 :IFS=138THE 
N170ELSE30 

140 F0RI=13T08STEP-1 : BEEP : COLOR= ( I , 7 , 1-8 
,1-8) :PUTSPRITE1 , (V,Q) , I , 3 : NEXT : T=T+ 1 : G 
OSUB160:GOTO130 

150 A=RND(1 )*1 56+50 :B=RND(1 ) *1 51 +30 : RETU 
RN 

160 PSET (150, 200) :PRINT#1 , "SCORE" ; T : V=RN 
0(1 )*20 0+26:Q=-20: RETURN 

170 PRESET(92,70) :PRINT#1 ."GAME OVER":IF 
STRIG(3)THENRUNELSE170 
180 DATA 'J<p^'),<~fBf >DU385i*D,TntBf 570 
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XX fc^S^Sffiff 



-7a?54dHji- 



vtzt 



0)«UBHS 



a Y+-fflH;r;£glil;«I£5iM 
^sB«M«3$ft;»x;^Y 
SiJO^rFRr^^YhfiJ 

^^©^•x^ysa 






o) ssottiJi 
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>g$USfil©M¥/f«g 



•li,^©X®I^^Si»Sfi0 



6B3SI 



^«awb»u7 









©) x-^ 







ZfJ$?~U1Ztt£ 



r.»JB;©£u:7n?=;Alc& 
U < d: 5 E LfcA^o fc/vt' tt 

z.hj-&.v-k.t±\-i£. ftoc 

=*- «.l7j» 




/j^tjp 



SENTUCKY.FD2 



1 SCREEN3,0,0:KEYOFF:L=0:DIMV(4) ,X1 (4) ,Y 
1 (4) ,X2(4) >Y2(4) >X3(4) ,Y3(4) ,X4(4) ,Y4(4) 
>A1 (6) ,A2(6) :X = 52:Y = 50:Z = 0:M=0:SPRITEOI\|- 
0NSPRITE60SUB9:W=33:XX= 100: COLOR 15,4,4" 
SPRITE$(0)="q»»»»*»d":SPRITE$(1 )="<^^~~A, 

a<" :sprite$(2)= w m,a,mm^" 

2 fori=0to4:readv(i) > x1 ( i ) , y1 ( i ) , x2 ( i ) , y 
2(1) ,x3(i) ,y3(i) ,x4(i) ,y4(i) :p0ke&hf3d6, 
v(i)*8:cls:vdp(4)=v(i) : circle ( 136 , 96) ,80 
,15:line(x1 (i) ,y1 (i) )-(x2(i) , y2 ( i ) ) :line 
(x3(i) ,y3(i))-(x4(i) ,y4(i)) 

3 circle(136,96) ,65 , 1 5 : f0rh=26t042step4 : 
circle (136, 96) > h , : nexth : nexti : forz=0to6 
:reada1 (z) ,a2(z) :nextz 

4 z=(z+1 )m0d6:putsprite1 , ( a1 ( z ) , a2 ( z ) ) , 2 

5 s0und1 ,88:sound8,15:s=stick(0) :x=x+(s> 
1)*(s<5)-(s>5)*(s<9) :y=y+2+strig(0)*4:pu 
tsprite0, (x*2,y*2) , 1 5 : ifpoint (x*2 , y*2 ) or 
point u*2+5,y*2+5)thenplay" vi 5l6404c""p= 

32 

6 M=(M+1 )M0D5:VDP(4)=V(M) : P0KE&HF3D6 , V (M 
)*8:FORJ=0TOW-L*3:NEXT 

7 XX=XX+B-P:PUTSPRITE2, (XX , ) , 1 5 : P=0 : B=0 
:IFXX>255THENPLAY"V15L6404CDEFGAB":F0RI= 
0TO1 : 1=1-1 :NEXT:ELSEIFXX<0THENPLAY"V15L6 
4O4EDC":X=50:Y=50:L=0:M=0:XX=50:FORI=0TO 
1 :IFSTRIG(0)THEN4ELSE: 1=1-1 :NEXT 

8 SPRITEOFF:SPRITEON:GOTO 5 

9 PLAY"V15L6405G":B=16:L=L-(L<11) :GOTO 4 

1 DATA0 > 1 36 , 1 6 , 1 36 , 1 76 , 56 , 96 , 2 1 6 , 96 , 2 , 1 
60,20,112,172,60,72,212,120,4,183,32,89, 
1 60 , 72 , 40 , 20 , 1 43 , 5 , 20 , 49 , 72 , 1 43 , 89 , 32 , 
183,169,6,212,72,60,120,112,20,160,172,1 

70,96,88,96,160,123,112,60,160,55,136,13 
4,112,49 
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?CC^frU\©rS£/ui:"<7 | j:i : 'r$&u-ei<J:e>o Sitfrbx^S:? 

b-c+'-^»^tL*nsL/t©r»L\rtes*-r= 7^a, s«, hi, 
fro KO-1 ^ra-i6ss 



L 







»Y KO-1 



LEADDOT .FD2 



10 COLOR15 
F:MT=5000: 
6E64":SCRE 
B$+STRING$ 
$:SPRITE$( 
20 SETPAGE 
BF:PSET(0. 
T(Q+I*21 .W 
1 ) . 1 . 1 :N 
COPYA,1TO( 
(1. 10). 11: 



,0.0:DEFI 

P$="V15T2 

EN5.2:B$ 

(14.128)+ 

1)=STRING 

0,1 :CLS:L 

5) ,10:FOR 

) .10:DRAW 

EXT:COPY( 

125,0) :FO 

NEXT:SCRE 



NTA-Z:D 
5505C64 
CHR$(25 
B$+B$+S 
$(3,192 
INE(0,0 
I=0TO3: 
A$:PAI 
42,0)-S 
RI=10TO 
EN0 



IMA(620) 

":T$="V1 

5) :SPRIT 

TRINGSd 

) 

)-(120,2 

READQ.W, 

NTCQ+1+I 

TEP(41 ,4 

126STEP2 



:KEYOF 
5T2550 
E$(0)= 
4,1)+B 

0) ,12, 
A$:PSE 
*21 ,W+ 
1 )TOA: 
1 :PSET 



30 SP=0:LOCATE0,0:PRINT"LE 
INKEY$:SP=VAL(SP$) :SP=SP-( 
FSP$=""THEN30ELSEIFSP>4ORS 
40 SCREEN5:COLOR=(11 ,6,6,1 
STEP20 : FORI =1 5T021 5STEP20 : 
E)*6) :C0PY(R*21 ,0)-STEP(20 
0:NEXTI:NEXTY:FORI=10TO50S 
0) -STEP (20, 20) ,1 TO (15, 1) ,0 
50 FORI=15TO235STEP20:LINE 
,15:NEXT:FORI=10TO190STEP2 
235,1) : NEXT: LINE (235, 170) - 
: PAINT (236, 172) ,9,15:HA=0 
X=9:Y=6:TI=0 



VEL(1-3)":SP$= 

SP=3)-(SP=4) :I 

P<1THEN30 

) :FORY=10TO170 

R=INT(RND(-TIM 

,20) ,1TO(I,Y) , 

TEP20:COPY(21 , 

:NEXT 

( I , 1 0) - ( I , 190) 

0:LINE(15,I)-( 

(253,190) ,15, B 

M=25:N=16:P=5: 



M 
< 



65 



60 TI=TI+2-(SP=4) :S=STICK( 

X< 1 5 ) * 1 + ( S = 7ANDX >9 ) * 1 : Y 

*10-(S=5ANDY<80)*10:PUTSPR 

»8.0:IFPOINT(M.N)=9THEN140 

70 IFSTRIG(0)=-1ANDHA=0THE 

*2-2)-STEP(20,20) . 0TOU00. 

HA=1 :XX=X*2-3:YY=Y*2-2ELSE 

NDHA=2THENC0PY(X*2-3.Y*2-2 

0TOCXX.YY) .0:COPY(100. 100) 

T0(X*2-3.Y»2-2) .0:PLAYT$:H 

80 IFSTRIG(0)=0ANDHA=1THEN 

G(0)=0ANDHA=3THENHA=0 

90 M=M-(P=3)*SP+(P=7)*SP:N 

=5)*SP:PUTSPRITE1 . (M.N) .4. 

=11THEN10 0ELSE IF POINT (M.N) 

)=0THEN130ELSE60 

100 P1=POINT(M+8.N) :P2=P0I 

INT (M.N +9) :P4 = POINT(M.N-9 



0) :X=X-(S=3AND 
=Y+(S=1ANDY>8) 
ITE0. (X*2.Y*2) 

N:COPY(X*2-3.Y 
100) .1 :PLAYP$: 
IFSTRIG(0)=-1A 
)-STEP(20.20) , 
STEP(20.20) ,1 
A=3:XX=0:YY=0 
HA=2ELSEIFSTRI 

=N+(P=1 )*SP-(P 
1 :IFPOINT(M,N) 
=120RP0INT(M.N 

NT(M-8,N) :P3=P 

) 



110 IFP=1ANDP1< >12THENP = 3ELSEIFP=1ANDP2< 

>12THENP = 7ELSEIFP = 3ANDP3< >1 2THENP = 5ELSEI 

FP = 3ANDP4< >12THENP=1ELSEIFP = 5ANDP1< >12TH 

ENP=3ELSEIFP=5ANDP2<>12THENP=7ELSEIFP=7A 

NDP3012THENP = 5ELSEIFP = 7ANDP4012THENP=1 

120 GOTO 60 

130 SCREEN0:LOCATE15.10:PRINT"GAME OVER" 

: : LOCATE 15. 12: PRINT" BEST" MT: GOTO 160 

140 IFTKMTTHENMT = TI 

150 SCREEN0:LOCATE15. 1 : PRINT"CLEAR !!": 

LOCATE 15. 12: PRINT"TIME"TI: LOCATE 15. 13: PR 

INT"BEST"MT 

160 IFSTRIG(0)=-1ANDINKEY$=""THEN30ELSE1 

60 

170 DATA 0.5.S4R20D10L20.5.0.R10D20L10U2 

0.0.5.R15D15L10U5L5U10.5.0.D5L5D10R15U15 
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ZMzZO., 3mS0MKti<DV. mZZl\Z<fttzA%l^c\&l^t 
t\ TM SOFT?-r„ Z<D?-k\i. 7X-)X.OM&£%iWmftO>J 
Z-? 1 Baic33^«5§fflCg»L/SUrc( r SCREEN 1 iZXZf^-i^ 

iS*^uru5^a:drrftfr§i:S5)„ mtm^omtti\ zcom, mm 

■oZZW:[ J t:(J6.«Dmi£\Z\Ztj.fr?tz), #. -?is>W*M»'PZ-?t)\ 

5\ CPUa>sn-ji/6j3^. rst©^). m^mzz<tztsi^ *&> 
Ltt±tf■^rL^sy-Attlft^ir«o*tt^o &©?\ ses^cr-sz 

BSto TM SOFT *IS£-l4Si 




hjlhsojt ° o .• 



o 



fcD 



O 



Stta>fttt 



X, Y :7bYt>-*f ^© 

tea 

X(nh Y(n) 7X-An 

cwaa 

s^b i ~eo) 

A, B, D -8$m® 

A(n) iFX-AW^^Y 

sa^-ycdb^x*— * 

C 7X-A$l 

E -JVs-lV-^V^t.7% 

-A-©gg||ffl»/Jvffl(XM#© 
^£Yffi$l©M055, **L> 

F ^l)-r§7X-A©S^ 

G &»P;X-A£g;L-g>^ 

Y5Y^iJ5£ffl*OY^(HJ5 

H AYXaT 7 

I JU-^ffl 

P $M"AA9>*=;*:37> 

CP-X-AigJjB'YSY^J^ 



► STOli^-^ 



S ^j^^ASI 



vuv^btim 



(©) 3W5M8M; 

:?^y sas'-y o sii*/ 7 * 

-A©^7^Y SA^-YS* 
x-^i^za^x^Y ka 
$>-> i ~eo©^s(s*T ; - 

^ £ g7K¥ 5 Y Y Zi' d: lc ~ £ 
ffl^g©^»IBBK'>S)»ie 



(0) y-AfflWf b 



e) ev«s 



•mssjsh t%7* - A'i ? b 

Yf-+f5£fflXJS}I©;i£ 

y®i©m©i*l x^nge*© 
S'JMI£-&©;p.X-A©g*i£ 



o) s#<D*n 



^•ang^Y-A©;^ 

^Y SAS'-YS^x-d? 




t*3 v i *i* ♦> 



A. 





(0) 7*-a<jdimhi 

#]50©fg&&b(0£5t;)P 
x-A£it^uri74MhK# 



©jfcfcDl 



\m 



►a-t^hp^s? 



®»*)D2 



•HH^UP^T.ziT 7 • AYX 



'a l ©4ftaffl2^©A'\0 

©AC- 1 ~ 1 *MXZ> 
©A£0~2©§gBC1JX®5 

tt^-5 2^©3 t^ornSo 



mcgLSrA^-v^ft^t!- 

A = RND(1)*3 

tr't,-rnB"cfcn©/cA\ \%m 
te.KZ-y&'ZK-xcmkii 

ttfcfrofc©/c35o 35U-3 
fcgLIS!Cd;Stg»©itg75aB, 
+ -^ ^ ^ £i£ o fcii©;^ a 
-Jb&£*r*fr[:J-3=fe©r\ lg 

»©^fbcsictt^^fci+5ffl 

^n^'5A©iisr'B, gfts 
AM^nfc»CxS^^5"r<& 

£©sggi¥!J£r\ xiim©^© 

tfc$x0rA$U3o£S§lt©fr 
ftOCiornstf, EjSPeS® 
SgStB, g]SS©g£X, Yd 

-rsd: (*s*ffir-&< r nnh 
sQRCx^e+Y^e) 
T>i<iK)bn-s©r'^^rs< d: 

L\U£55 fc£U 3ffl^n 
^A?'ttA/Jv§|j£/fl:hfofrtt 
Bt\U©r, ¥7?«£>R«)5>& 
gtt&LV (ANTARES) 

T > 9'L. t FM^SsStl Ziim. I T l> 3£y D ? 7 



AMOEBA 



FD2 



1 SCREEN1 .1 ,0:COLOR 15,4.1 : DEFINTA-Z : KEYO 
FF:WIDTH32:SPRITE$(0)="<~doBt~<":FORI=0T 
07:READA(I) : NEXT : A=RND ( 1 ) *3 : FORI=0TO1 59 : 
A=A+RND(1 )*3-1 :A=A-(A=-1 )+(A=3) :VP0KE143 
44+I.A(IM0D8)*2 A A:NEXT:DIMX(31 ) >Y(31) 

2 CLS:P=-1 :C=0:X(0)=240:Y(0)=170:GOTO6 

3 E=500:G=12:FORI=1TOC:A=ABS(X-X(I)) :B = A 
BS(Y-Y(D) :D=-(A>=B)*A-(B>A)*B:IFD<ETHEN 
E=D:F=I:NEXTELSENEXT 

4 S=STICK(0) :X=X+(S>5ANDS<9ANDX>0)*4-(S> 
1ANDS<5ANDX<240)*4:Y=Y+((S=8ORS=1ORS=2)A 
NDY>0)*4-(S>3ANDS<7ANDY<175)*4:PUTSPRITE 
0.(X»Y)»10.0:IFRND(1X. 1 5THENPLAY"L1 2S9M 
1000CB":DATA30>33,41 .37.53.35.45.30 

5 X(F)=X(F)+SGN(X-X(F))*2:Y(F)=Y(F)+SGN( 
Y-Y(F))*2:PUTSPRITEF> (X(F) ,Y(F)) .7.1+RND 
(1)*20:IFABS(X-X(F)K15ANDABS(Y-Y(F))<16 
THENF=0:GOTO7ELSEG=G-RND(1)#2 

6 P=P+1 :IFC<31ANDPMOD150=0THENPLAY"T120V 
15O3L8S8M100C4.":C=C+1 : X (C ) =X ( F ) : Y ( C) =Y ( 
F) :F = C:G=12:G0T04ELSEIFG<1THEN3ELSE4 

7 PLAY"L16S12M300CECECE":IFP>HTHENH=P 

8 SCREEN 1 :L0CATE7. 11 : PR I NT" SCORE "P" HI "H ■ 
FORI=0TO1 :I=-STRIG(0) :NEXT: X=0 : Y=0 :G0T02 
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67 






3kW : £9$* A; 



'J-fl-fMMWMRfflj ss 




n3£AUi-^a>tf£30#cU^c:3 o 
Ii£JS;*tf£5to9lz?n^5Atf3@U<Z)fe, 

&fcb? 



u 



C7 



28 CLEAR 800 

30 CALL MUSIC (1.0.1,1,1.1.1,1) 

4 PLAY*2."T224a33vl 1L12Q4<" . "T224ffl3BVl 1 

L 1 2Q6" . "T2248 1 5V 11 L 1 207" . "T224S1 5V9L 1 208 

"."T224V14L12u6>>"."T224a5Vl3Ll2Q6"."T22 

4V03A14" 

41 A0$ = "C6OC6<CC6>C<C6CB-6B-B-6B-R2" 

50 A$="C6>C<E6>C<G6>C<A6>C<B-6>C<A6>C<G6 

>C<E6>C<" :A1$=A$+A$ 

60 A2S=A$*"C6>C<E6>C<G6>C<E6>C<C6C>C6<CC 

6>C<C6C" 

70 B1$="G4A4B-4A6G4G4AB-4A4 G4A4B-4A6G4G 

4AB-6B-A4" 

80 B2$="G4A4B-4A6G4G4AB-4A4 G4A4B-4A6>C& 

C4<R2." 

90 C1$="E4E4E4E6E4E4EE4E4 E4E4E4E6E4E4EE 

6EE4" 

100 C2$="E4E4E4E6E4E4EE4E4 E4E4E4E6E&E4R 

2." 

110 D1$="C4C4C4C6C4C4CC4C4 C4C4C4C6C4C4C 

C6CC4" 

120 D2S="C4C4C4C6C4C4CC4C4 C4C4C4C6CSC4R 

2." 

130 R0S="HB!4HM!4HB!6B!12HM!6B!12HB!6B!1 

2HM!6B!12H8!4HM!4":R1$=R0$+R0J 

140 R2S=R0$*"HB!4HM!4HB!6B! 12HM!6B!12HB! 

68!12HM!6B!12HS!M!*HS!M! 1 2S ! M! 1 2S ! M ! 1 2" 

150 E1$="a6V14C6C<G6>CE6CR6CFGFE6CR6>CR6 

C< C6C<G6>CE6CR6CFGFE6CR6C<G6>C" 

160 E2S="C6C<G6>CE6CR6CFGFE60E6CR6C C6CE 

6EG6EC6>C&C4<R2." 

170 E3$="a24<G4>E4E6DC6DR6CC4<B-6>CD6CR6 

<B->C6DE6DC6G&G2F6E06C" 

180 E4S="E6EC4C6D6E6F6E6D6E6D6C6FGFE6CSC 

2<G6SS6SR6B>I>4" 

190 E5$="F6ED6CR6FE6CG6ED6CR6ED6CR6FE6CD 

6EF6GSG2B6>C<B6G" 

200 E6$="BGEAFDGECEC<G>C<GEGB>DF6ED6CF6E 

C6G4ED6C&C2" 

210 F1$="RC4R6CR6CRC4R6CR6C RC4R6CR6CRC4 

R6CC6C" 

220 • PLAY 



Notes' notes J->J-V 






221 PLAY#2.A0$,"" .""."","","". R0$ 
230 PLAY#2.A1$.B1$.C1$.D1$.E1$.F1$.R1$ 
240 PLAY*2.A2$.B2$.C2$.D2$.E2$.F1$.R2$ 
250 PLAY#2.A1$.B1$.C1$.D1$.E3$.F1S.R1$ 
260 PLAY#2.A1$.B1$.C1$,D1$,E4$.F1$,R2$ 
270 PLAY#2.A1S.B1$.C1$.D1$.E5S.F1$.R1$ 
280 PL AY#2 . A2$ . B2$ . C2$ . D2$ , E6$ . F 1 $ . R2$ 
290 GOTO230 



Step/ 



^tffiH©CD=£#%CUrn€.-E5t"U, 

S'3o5r"r o Vt,. StU^LWBCWffl 
OUBfeWSUXAc:; *#ISBo$0 
AOTXUfu • A^XW&CD'JXAOill,^® 

<!1l;^To act. • 5zL-y^^©a^w 

a7K-f>hB r 3© l JXA7j'^ff5LM,\cfe- J 
£L.5£Z:3 

10 ' 

20 • = Step! = 

30 ' Composed by NARUTO 

40 • 

50 : 

60 • Initialize 

70 CALLMUSICM .0.1.1.1.1.1.1) :CLEAR5000 

80 DEFSTRA-I.T:DIMAX<15) 

90 SOUND7.49:S0UND6.12:FORZ=5T013:READA$ 

:AX(Z)=VAL("SH"+A$) :NEXT 

100 FORZ»0TO4STEP2:POKE8.HFA2C + Z»16.24:NE 

XT:DATA6. . .1 .2F1 , . .18.70 

110 : 

120 ' MML (junban ga barabara . . . : ) 

130 I="L803CCE-12<B-16>R16CCC24C<8->CCE- 
l2F16R16CL24CCCC<B-8B8>":E1="a33Vl5Q8"*I 
:F1="al2V1293"*I 

140 E3="L24C8C12CF12FCFF+L12G<G24B->CR24 
C1" 

150 A1="a48V1505C1&C1" :B1="a48V1505R2E-2 
&E-1":C1="a48V1505R2.GE,G1":D1=-a48V15R10 
5B-1" 

160 G2="3A15V9Y23.60Y24.200B!H12H24B!H12 
H24S112SI6" 

170 H2="SL8M300CCM2600C12C6" 
180 I="B!H12H24B!H12H24S!H12H24H12H24C!B 
!H12H24B!H12B!H24S!H12H24H12H24":G1=I-U : 
G3=I*"B!H12H24BIH12H24S!H12H24H12H24C!BH 
12H24B!H12B!H24V15S48S48S24S24S24S24S24" 
190 G4=I*"B!H12H24B!H12H24S!H12H24H12H24 
C!BH12H24B!H12B!H24V15Y24.25 5M48M48M24M2 
4Y24 , 90M48M48M24M24Y24 .200" 
200 I = "L8M300CCM2600C4M300CC12C24rl2600C4 
" :H1 = 1 + 1 :H3=I+"M30 0CCM260 0C4M300CC12C24M 
20 0C48C48L24CCCCC" : H4= I *"M300CCM260 0C4M 



300CC12C24M2000L24C48C48CCC48C48CC" 

210 A2="a41A2A-4B-4>C8Rl2<C24SC2.V12" 

220 B2="a41F2F4G4G8R12<G24SG2.V12" 

230 A3="S630305C12C24C12C24Q6C8Q3<B-12>C 

8C24C12C24Q8C8<B-8>C8<u3G12>Q8C24<B-8u3F 

12Q8B-24A-4B-4" 

240 B3="a63Q30G12G24G12G24Q6G8a3F12G8G24 

G12G24Q8G8F8G8Q3C12Q8G24F8Q3C1208F24E-4F 

4" 

250 A4=">Q3C12C24Q8C12Q3<B-24>C12C24Q8C1 

2<Q3B-24>Q3C12C24a8C12Q3<B-24>C24C12Q8C1 

203<B-24Q8>C4D4E-4F4" 

260 B4="Q3G12G24Q8G120 3F24G12G24Q8G120 3F 

2403G12G24Q8G1203F24G24G12a8G12Q3F24D8G4 

A4B-4>C4" 

27 I*"L24a6B-AGB-AGAGFGFE-FE-DE-DCDC<B- 

>CDE-FE-CGFE-FE-CGFE-FE-CGFG>C<GFE-C<B-" 

280 C3="05V15" + I :D3="06V15"*I: 1 3 = "05V 12" 

+ 1 

290 C*=">C<B->CE-CE-FCFGCGB-GFE-C<B-GFE- 

C<B-G>>CDE-CDE-DE-FE-FGFG8-GFE-CE-FG8" 

300 A5="C2<B-2A-2B-2>" :A6=A5+"V1 1 " 

310 B5="G2F2E-2F2":B6=B5*"V11" 

320 I = "a4V10C4E-4VUG8&G12F24&F8E-12F24V 

12G8B-8G12F24Rl2G8Vl3F24E-l2C8C24<Gl2B-2 

4>":C5 = "06"-fI:D5 = "07"-H: I5="05"+I 

330 C6=~L24C12C<G12B->CDE-<G128->CDE-FE- 

FGFE-C<GB->CDE-CDE-DE-FE-GAB-8.L64AGFEDC 

<BAGFEDC<BAG<F£D" 

34 G5="S!B!H12H24H12H24S!H12H24H12H24V1 

5S 12Y24 . 25 5M24Y24 . 90M1 2S8S1 " 

350 H5="LM3000CCL12CC24CC12R24M15000C1" 

360 A7="a6305a3V13L12CC24a7CQ3C24<8-B-24 

Q7B-Q3B24>CC24Q7<B-12>Q8C12R24<B-1V3B-" 

370 B7="S630Q3V13L12GG24Q7GQ3G24FF24a7F0 

3F+24GG24Q7F12Q8G12R24G1V3G" 

380 I="348V15L24u8CR24CC12C<8-R24GB-l2B> 

CR24<GB-12>C12R24C1V3C12" :C7="05"tI 

390 D7="06"+I 

400 ; 

■ voice & tempo & Loop counter 

420 _V0ICEC0PY(AX.a63) 
430 TS="T120":Z=0 
44 : 

450 ' music play section 

460 PLAY#2.T ,T .T .T .T .T .T .T .T 

47B PLAY#2.""."".""."".""."".G2.H2 

480 PLAY#2.A1 .B1.C1.D1.E1.F1.G1.H1 

490 PLAY*2,A2.B2.""."".E1 .F1 .G3.H3 

500 PLAY*2.A3.B3.""."".E1 . F1 .SI .HI 

510 PLAY#2.A4.B4."" , "" . E 1 . F 1 . G3 . H3 

520 IFZ=2THEN600 

530 PLAY#2.A3.B3.C3.D3.E1.F1 ,G1 .H1 .13 

540 PLAYt2.A4,B4.C4.C4.El . Fl .G3.H3.C4 

550 IFZ=3THEN610 

560 PLAY#2.A5.B5."" ."".E1.F1.G1.H1 

570 PLAY»2.A5.B5.""."" .El. Fl. SI. HI 

580 PLAY#2.A5.85.C5.D5.E1 .F1.G1.H1.I5 

590 PLAY#2.A5.B5.C6.C6.E1 .Fl .G4.H4.C6 

600 Z = Z + 1 :GOTO500 

610 PLAY#2.A5.B5.C3.D3.E1 .Fl. SI. HI. 13 

620 PLAY#2.A6.B6.C4.C4.E1 .Fl .G3.H3.C4 

630 PLAY#2. A3. B3.C5.05.E1.F1 .51 .HI .15 

640 PLAY#2.A4.B4.C5.D5.E1.F1.G1.H1,I5 

650 PLAY#2.""."" .C5.D5.E1 .F1 .G1 .HI .15 

660 PLAY#2.""."".C6.C6.E1 .F1 .G3.H3.C6 

670 FORX=0TO2 

680 PLAY#2. ""."".""."" .E1.F1.G1.H1 

690 NEXT 

70 PLAY#2.""."" .""."".El .Fl .G4.H4 

710 PLAY#2.A7.B7,C7.D7.E3.E3.G5.H5 
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Step /■■■■■■■■■■■■ 
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£M7}cbz«FotzCDz\ mmnzm 

f57X5I'7 )-■■■■■■■■■ 

HASEMAKO r n-K«Jt^Ur, 
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He 
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1 e CALLMUSICiCLE 
-T:DIMD<38) :I=RN 
T;321V1B03"."T=T 
28 A="04B 05C + 

05A R 
S(A. J«6t5.2)=MID 
XT:A(I)=A:NEXT 
SB F0RI=8T08:REA 
4a F0RI=BT02:F0R 
♦3) :D(I»3tJt9)=C 
(18)="E1":D<19)= 
58 F0RI=8T01 
60 J=RND(1 )»4:K= 
:IFL>32THENL=L-< 
tMIDS(AU) ,K«6t1 
a B(I)=A:A="":L 
88 PLAY#2.D(I ) .B 
98 DATA E2. ,Ft2. 



AR38B8:DEFSTRA-Z:DEFINTI 
D(-TIME) :T=80:PLAY#2."T= 

a21VU"."T = T;S21VU" 
05Dt 05E 05Ft 05Gt 

FORI =8T03:FORJ=8T07: MID 
$("1 2 4 8 ",I«2t1 .2) :NE 

DC(I) :NEXT 

J=BT02:D(I«3tJ)=c(I)tC(J 
(It6)tC(Jt6):NEXT:NEXT:D 
"Ft1":D(2B)="Bl" 

RNDd >*8:L=Lt(2*(3-J> )»4 
2* (3- J) )«4:G0T06BELSEA=A 
.6) :IFL=32THENELSE68 
=8:NEXT:I=RND(1 )»21 
(8) .6(1 ) :G0TO58 
,B2.,E4,Ft4,B4,E2,Ft2,B2 
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188 

118 

128 

138 

148 CLEAR15BB:CALLMUSIC<1 .8.1.1.1.1,1,1) 

:CALLTEMPERi6) 

158 ' — SOUND SETTING 

168 DIMAXM5) : FORI = 4T01 5 : READAS : AX ( I ) = VA 
L("&H"tAS> :NEXT:CALLV0ICEC0PY(AX,ao3> 



178 DATA 8,4.8,8,4F47,33BB,28.B.4BB2.276 
.68,8 

188 ' — MML DATA 

19B AB$="L8318V12a605G4>":A1$="Dt20+4D4. 

DtD<B>C2.<G2G4>Dt2Dt4D4.DtD<B>C2.&C2C4<B 

4. >CD4G4G4F*4F4.GF4D*4D*4D4C4.<B>C40t4D4 

<B4>C2.&C2V1 1C4" 

28 8 A$="<B>CDDtGFtFGFDtDC<B>CDDtGFtFGFDt 

D<G>":A2S="33V13Q4"tASt"30V7"tASt"33V13" 

tASf38V7"tA$fal6V120.6" 

$="C2<BAtB2AtB>C2< BAtB2At B>C2CtC< 84 
G4G4At4G4Ft4C2":A3S=X$t"G4>"txSt"31BV12G 
4>" 

228 B0S="L8B10V8Q6O5G4":B1S="G4At4At4G4B 
4B4G4Dt40t4Dt4G4G4G4At4>Dt4<A4DtDtG4>C4< 
CDtGB>C2C4<G4Dt4B4G4>Dt4D4C4C4<B4At4A4At 
4G4G4Gt4G4At4B4>C4<CDtGB>C2<G" 
238 B$="DtGAtGAtB>CC<BAtBGDtGAtGAtB>CC<B 
AtBG":82S="a9V9Q4"tBSt"V6"tBSt~V9"tBSt"V 
6"tB$t"316V80.6" 

248 B3S="363V6"tX$t"G4>"tX$t"310V8>G4" 
258 CS = "L8318V30.505CDtGDtGDtCDtGDtGDtCDt 
GDtGDtCDtGDtGDt":C1$=CStc$tcStcS 
268 D$="L2363V6Q5G .G.G.G.":D1S=D$tDStDSt 
DS 

278 E$=" L2a63V5Q5C.C.C.C." :E1S=EStEStESt 
ES 

288 FS="L1363V4Q703G.&G.":F1$=FStFStFStF 
$ 

298 RS="V0H4H4H4H4H4H4H4H4H4H4H4H4":R1$= 
RStRStRStRS 



380 



' — PLAY MML 



318 PLAY#2.A8$.BBS 

328 PLAY*2.A1$.B1S.C1S.01S.E1S.F1$.R1$ 

3 38 PLAY#2.A2$.B2S.C1S.D1S.E1S.F1S,R1S 

348 PLAY#2.A1$.B1$.C1S.D1S.E1S,F1S,R1S 

35 B PLAY#2,A3S,B3S.C1$.D1S.E1$.F1$.R1$ 

368 GOT032B 

388 "by GANBARE-UAKASEGAWA (NOV. 1991) 
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18 CLEAR1 B88:CALL MUSIC! 1 ,8.1.1.1,1 

FSTRA-F : _V0 ICE ( 34 . 34 . 324 , 324 , 329 ) : _T 

POSE (8) 

38 PLAY#2,"T148V1505L8" , "T1 48V1 505L8 

148V1502L8" ,"T148V1503L8","T148V1505 

"T148V1 5" 

4 8 A="R1R1CDEG-2E-DCD4C<BAG4>>C4<B>E 

1A":B="R16"+A:C="G1F1E1D1CKB1A1":D 

68 E="C8C8C8R8" :E=EtEtEt£tEtEtEtEtE 

EtE 

78 F="S8CS8CS8C8S8CS8CS8C8":F=FtFtFt 

Ft"MB4CSHBM4" 

88 PLAY#2.A,B.C,D.E,F: J=0 

98 FORK=8T018:IFJ=8THENFORI=BT058STE 

TRANSPOSE! I) :NEXT:J=1ELSEIFJ=1THENF0 

BTOBSTEP-5:_TRANSPOSE(I) :NEXT: J=8 

IBB NEXT 
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RANS 



2FGB 
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P5:_ 

RI=5 
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18 _MUSIC( 1 ,8,2.2.1 , 1 ) :CLEAR9999 

28 P0KE&HFA3C.24:P0KE&HFA4C.24:S0UND7.49 

:S0UND6.3 

38 DEFSTRA-T 

48 T="T175" :PLAY#2.T.T.T.T.T,T 

58 GOSUB 628 

68 ' 

73 AB="V1505L8Q8a86 FFFFFFFF >FE1 6D16CD1 6 

E16F4<Q5L16FGAB-" 

88 A1=" >C8<A8B-8G8A8F8FGFEF8C8Q7C4.Q5CCC 

<B-AG" 

98 A2="FGAB->C<B-AG>FGAB->C<B-AGA8F8G8E8 

F8C8FGAB-" 

188 A3=">C8<A8B-8G8A8F8FGFEF8>C8Q7C4.Q5C 

CD8<B8>" 

1 18 A4="C8CCD8<B8>C8CCD8<B8>L8C<B>C<B>C< 

B>CCL16<" 

128 A5=">C4R4<B-4.A8L8GFEDCF16F16FF" 

138 A6="L16FGAB->C<B-A8-AGFGFEDCAGFGFEDC 

148 A7="L8Q7D-4CCD-4CCD-4CC<F4>Q5F16G16A 

16B-16" 

158 A8=">C4R4<B-4.AQ6GFGA>CC16C16CC" 

lo8 A9="C>C<B-AGFEDCC<B-AGFED" 

178 AA="CC<B-AGFED>C2D-2" 

188 AB="D2E2F8R8C12F12A12>C12R12<A12>Q7C 

4Q4" 

19B AC="R8F16A16>CD16E1608F2" 

288 ' 

218 BB="V15O4L406348 FCFCFFFR4" 

228 B1="FCFCFCFC" 

23B B2="FCFCFCR8C8D8E8" 

248 B3="FFCCFCFC" 

258 B4="FCFCFCR8F8R8F8" 

268 B5="FR4C.C8C8C8CBC8C8F16F16F8F8" 

270 B6="FCFCFC" 

288 B7="D-CD-CD-CCR" 

298 B8="FCFCFCFF" 

388 B9="CRCRCRCR" 

31B BA="L8CDEFGF16E16DCL2CD-" 

328 BB="DEL4FFFF" 

33B BC="FFFC" 

348 BD="F.E8C8*D8E-8E8FR4.CC8" 

358 ' 

360 C0="V15aA15Y22.30Y24.200 B4BHI4B4BH! 

4B4BH!4BH!4R" 

37B C1="B4BH!4B4BH!4B4BH!4B4BH!4" 

388 C4 = "B4BH!4B4BH I4B4BH 14B8BSIH! 168S !H ! 

16BS!H!8BS1H!8" 

39B C5="82B4.B8B8B8B8B8B8BS!16BS! 16BS!8B 

S!8" 

4BB C6="B4BH!4B4BH!4B4BH!4" 

418 C7="B4BH!4B4BH!4B4BH!4BH!4BH!4" 

42 B CB="BH!4BH!4BH!4BH!4BS4BH!S12BH!S12B 

H ! 1 2SBH ! S ! 6BH ! S ! 1 2BS32BS328S32BS32BS32BS 

32BS32BS32" 

438 CC="RBH!48H!4B4" 

440 PLAY*2.AB.BB,E8.F8.CB.D0 

458 PLAY#2.A1 ,B1 ,A1 ,F1 ,C1 ,D1 

46B PLAY#2,A2,B2.A2.F1 ,C1 ,D1 
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470 PLAY#2.A3.B3.A3.F1 .CI .D1 
488 PLAY*2.A4, B4.A4. F4.C4.D1 
490 PLAY*2.A1 .BD.A1 .Fl .C1 .D1 
580 PLAY#2.A2.BD.A2.F1 .CI .D1 
510 PLAY#2.A3.B3.A3.F1 .C1 .D1 
520 PLAY*2.A4.B4.A4.F4.C4,DG 
530 PLAY#2.A5.B5.A5.F5.C5.05 
540 PLAY#2.A6.B6.A6.F6.C6.D6 
550 PLAY#2.A7.B7.A7.F7.C7.D7 
560 PLAYS2.A8.B8.A8.F8.C1 .05 
570 PLAY#2.A9.B9.A9.F9.C1 .09 
580 PLAY*2.AA.BA,AA.FA.C7.DA 
590 PLAY#2.AB.BB.AB.FB.CB.DB 
600 PLAY#2.AC.BC.AC.FC.CC.0C 
610 GOTO440 

o:a ' 

638 DB="L8S M580CI12B08CM500CM2800CM500CM 
208 0CM50 8CM288BCri50 0Cri20 8 0CM500CM2B0BCM6 

000C2" 

64 DX = "t15B0CM20 00CI<l5 0CM2008Crl50 8CM20 

CM5BBCM28B0C":D1=DX*DX 

658 DG = DX-t"M500CM20 0CM50 0CM28 8 0Crl58 0CM2 

088C16C16CC" 

660 D5="M100 00C2M5 8CC16C16CC16C16CC16C1 

6CC16C16CC16C16M5BB0CC" 

678 D6=DX*"M500CM28 8 0CM50 0CM20B0C" 

68B D7="RM1B8B8C2C2C4C2" 

69B D9="RM1BB88C2C2C2C4" 

700 DA="RM1000BC2C4"»DX 

710 DB-DX*"M2B00C4C12C12C12C6C12M100BL32 

CCCCCCCCL8" 

7?« DC="RM5B00C4C4C4" 

730 EB = "V1504L8Q8i)l4 FFFFFFFF >FE1 6D1 6CD1 

6E16F4<Q5L16FGAB-" 

740 ' 

758 FB="V1204L806al2 FFFFFFFFFFFFF2" 

768 F1="FFFFFFFEFFFFFFFE" 

770 F4="FFFFFFFEFFGGAAB-B-" 

780 F5="VB8F2F4.FFEFEFF16F16FF" 

790 F6="FEFEFEFEFEFC" 

80B F7="D*D*CCD+D«CCDtDtCCF4F4" 

810 F8="FEFEFEFEFEFEFEFF" 

820 F9="FEFEFEFEFEFEFEFE" 

830 FA="FEFEFEFCV12C+CC+CDD-0D-" 

848 F8="D-D0-DEE-EE-V1 1F4F4F4F4" 

858 FC="<F4F4F4F4>" 

860 RETURN 
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STAGE! 



g«»-EXPERT(iaa) »-y-A£a-y^-5 






ISLV 3SblitI¥M«^-ASa-y-> 
^fpggo x.-£, 35lAofcUXA©ftr?5 

m,-x, x<-^-A-7Jucffl3RU^"rcr 

•5)c itiKD^b-^tfMt'JXAfflTjM^a 

xf-X • A-XJl/B£o59£S£F©5£ 
/ffj^rnSSK h&8ti-K lBtf-KCD 

■3-3 u xaic tf >v$ u t® □ bfcioi } r-f &„ 



7.-A-3.£-VJl/y-f- 
r STAR SOLDIERj 

|fl 'save-soldier .sss- 

20 CLEAR1BB00:X=0 

3« nusien .a. i . i • i ■ i ■ i . 1 1 

-t _TRANSPOSEI90 ) 

51 PQKE&HFA2C,75:P0KESHFA7C.75 

a POKE£HFA3C55:P0KEiHFA5C. 125 
7« POKE6HFA4C. 1BB:P0(vESHFA6C75 
fj0 TS=*T143" 

98 AS = *a22YB.5BL16VnO4RleF-0-F-AF-A D-' 
A>D-F-D-f-AF-AA-AA-E-t ( A-F-CG-G-R16A-&A 
-4" 

•S* BS="a22Y0.50L16V9Q4RBF-D-f -AF-A>D-< A 
>D-F-D-F-AF-AA-AA-E-C<A-F-C>G-G-RTftA-SA- 

8" 

1 18 CS=*822Y0.50L16V 103R1 6D-< A >D-F - D-F - 

AF-A>D-<A->D-F-D-F-E-CRl6<A-R16E-E-<A->> 

0-<B-R16?C^6C" 

M«"S22Yi.5«L16V902BlflO- 1 A.'D-F-D-F-A 
F-A>D-<A->D-F-D-F-E-CR16<A-R16E-E-<A->>D 
-<B-R16>C4" 

Li="a33L8V1202A>A<A>A< A>A< A>>D-C.<G- 
16E-<A>G-16<A16R16>G-.C" 

1..0 F$="333L8Vie02R32A>A<A>A< A>A(.A>>D-C. 
<G-16E-^A :G-16<A16R16>G- . C 1 . " 

I GS="»AHV7Y22<25Y23i 15»Y2*.175Y38»5Y 
39,3Y4e.5B!C16Cl6BS!Cl6Cl68'.Ci6Cl0BS!C16 
C16B!C16C168S!C16C16B!C16C16BS!C16C16B!C 
16BS!C16C16BS!C16B:C16C16BS!C16C168S!HC1 
6BSLHC16C16BS!C!H16B!C16B:f !16" 
leB A1*="a32Yi . 120YS.120L16V15O5G-8FR16D 
-R8.G-R16FC>-R":A1S = A1S + A1S 

vrs = "Ll6VUE-E-R16E-R16E-e.<BBRt6BR1 
6B8 > E-E-R16E-R16E-8.G-G-R16G-R16G-8 . " 
188 BlS*"a32Yl -12BY3. 12flL 1 6V1 405D-8P-R 1 6 
<A-RB.>D-R16D-<A->R':B1S=B1S*B1S 

e:t:"Ll6V15<BBR16BR1oB8.G-G-R10G-»16 
G-8.BBR168R16B6. >E-E-R16E-RlcE-*.* 

:i^ _ a33L8VU03a5D- >D-< D- >D- 1 6< D- 1 6R 
16D-l6>D-<D->D-":CtS=Cl$+C1S 

i t=-02LBB>B<B>B<B>B16B16' B>B<B>6<B> 
B BL16E-E-FFG-G-" 

220 D1S = "ai6Ll6V13060-<D*A- >t>-< A-D- >D-' A 
->O-<0-A->O-CA-D->0-<A-*':Dt*»Dl»+01J 

, S = "05B<B>G-BG-';B>BG-B'B>G-BG-''. B>BG 
--;02S=D2S*D2S 

41 E1$ = "816Ll6V1100Rl60-'-D-*- >D-<A-O->0 
-<A->D-<0-A->D-<A-D->D-" :£1S=E?S*E1i 
2SB E2S = "05R16B<B>6-BG^B>BG-B'B>G-BG-<B 
>B":E2S=E2S*E2S 



26B F1t = "a33L8vi2O307R16D- ^D-< D- >D- 1 1 D- 

16R16D-16>D-<0->0-16*:Fl$=F1$+F15 

272 F2S=-02LBR16B>B<B>B<B>BI6B16<8>B<B>B 

<B)B BL16E-E-FFG-" 

| .i 1 i = " 3A 1 4 V7Y22-25Y23.15BY 24.175^38. 5 
Y39.3Y48.5B!C16C16MC16C16BS ! M ! C1 OC ISC 16M 
C16B!C16C168!C16BS!C16C16C16C16C16MB!C16 
C16r11Cl0CieBS!C16C16C16M'C16MB!C16C16B!C 
16BSiC16C16BS!C!MiCl6C(1!l6CHM! 16" 
290 A3S="a43Yl -52Y3.29 05L 1 6V1 3E-8F-D"< A 
F-R16>E-BF-D-<AF-R16>D-4E-C<A-E-R16>D-8E 
-C< A-E-R16>E-4F-t>-<AF-R32>E-8&E-32F-D-<A 
F-R16>(>-S B 

^PB B3Ss"36 06L16V1 1R64E-BF-0-^AF-Rl6>E- 
8F-D-<AF-R16>D-4-E-C<A-E-R16>D-BE-C<A-E-R 
16>E-4F-0-<AF-R32'E-8&E-32F-0-<AF-R16>0- 

16. ." 

C5S="L802A>ACA>A16<A1oR16A16>A<A>A(A 
->A-<A->A-16'. A-16R16A- 16>A-<A->A-<A>A<A/ 
A16<A16R16A16>A<A>A" 

.i [:Ji = -Q5v14Ll60-<AF->0-<AF->D-<AF->D- 
< AF- >D-tAF->D-C<A-E->C<A-E- >C< A-E- >C< A-E 
->C<A-e->CD-<AF->0-<AF->0-<AF->D-<AF->D" 
<AF->D-~ 

SSI E3S="05V12L16R)6D-<AF->D-<AF->D-< AF- 
>D-< AF- >0-< AF->D-C<A-E->C<A-E->C<A-E->C< 
A-E->C<A-E->CD-<AF->D-<AF->D-<AF->D-<AF- 
>D-<AF-" 

)4I F3I="L802R16A>A<A>A16<A!6R16A16>A<A> 
A<A->A-<A->A-16<A-16R16A-16>A-<A->A-<A>A 
<A>A16<A16R16A16>A<A>A16" 
3SB G2I="BiC16C16n!C16C16B!C16C16M!C16C1 
6M ; B : C 1 6C1 6MC 1 6MC 1 6BS 1 C 1 6C 1 6C 1 6C 1 6B ! C 1 6C 
16«C16C16B!Cl6C16(1Cl6C16M!BCl6C1oM!CloM! 
C16BS:C16BS'C16BS!C16SS!C16M:B:C16C16C16 
C16B!C16C16MC16C16B!C1bC16M!C1oM!C16f1BC • 
H16C16C16C16" 

36B A4S= _ 05L16D*8E-C<A-E-R32>D-85D-32E-C 
<A-E-R32>E-S. .F-E-F-R16S32Y1 .6B V9 (F-<F 
-A> F -<A>F-AF-A>F-Aa43Y1.52Y3.29V14A-A-GA 
-R1oi32Y1.6fl V9 <E-<E-A->E-<.A->E-A-E-A- 
D-E-" 

.-■l = "O6Ll6R640-8E-C<A-E-R32>D-a&t>-32 
E-C<A-E-R32> V10E-8. . F -E -F -R1 6V1 039> F-- F 
-A>F-<A>F-AF-A>F-AV13>a6A-A-GA-R16V!039< 
E-<E-A->E-<A->E-A-E-A->D-S-32." 
3ae C4S-"02L8A->A-<A- >A- 16( A- 16R1 6A- 16>A 
-<A--'A-L16<A>F-A>D-':A8>A(AR16A>AS<A>F-A> 
F-<A-E-C<A-A-8>A-<A-R16A>A-8<<A->E-A->E- 

398 D4$="05V14C<A-E->C<A-E- >C< A-E- >C< A-E 
-,CCA-E->CvnCD-C0-E-F-E-F-R8<D-[>-CD->C0 
-CC<B>C6A-GA-R8<CC<B>CB>C" 



401 E4S*"05V12R16CCA-E->C<A-E->C<A-E->C< 

A-E->C<A-E->CV9CD-C0-E-F-E-F-R8<D-D-CD-> 

CD-CC<B>CGA-GA-R8<CC<B>CB" 

410 F4S="02L8R16A- M-< A- >A- 16< A- 1 6RlcA- 1 

6>A-<A->A-L16<A>F-A50-<A8>A<AR16A>A8<A>F 

-A>F-<A-E-C<A-A-8>A-<A-R16A>A-8<<A->E-A- 

42B A5I='L16Vl4a43Y1.52Y3.29F-F-E-F-Rl6V 
8 332Y1.60 <F-<F-A>F-<AiF-AF-A>F-AV14343 
Y1 -52Y3.29A-A-GA-R16y8 a32Y1.6B <A-<A">E 



r STAGElj 



-A-E-A 



>E-<A->CE-A- 



BS$="ft32L16V1286<F-F-E-F-R16>V1Bffl9tF 
-<F-A>F-<A>F-AF-A>F-AV12a6A-A-GA-R16V103 
9<A-<A->E-A-E-A->E-<A->CE-A-32- 
4,*B C5S = "L1602A>F-A>0-<A8>A<AR16A>A8<A>F 
-A>F-<A-E-C<A-A-8>A-<A-R16A">A-8<<A->E-A 
->£-■ 

i50 05S="05L16CO-CD-E-F-E-F-R8<D-0-CD->C 
0-E-E-OE-GA-GA-R8<CCD-D-B->C" 
Calf E5S = '05L16R16C0-CD-E-F-E-F-R6< D-D-CD 
->CD-E-E-DE-GA-GA-R8<CCD-D-B-" 
473 F5S="U1602R16A>F-A>D-<A8>AvAR16A>A8< 
A>F-A>F-<A-E-C<A-A-8>A-<:A-R16A->A-6<<A-> 
E-A-" 
^80 A6S="R8»6V14L1606D-D-R8D-D-CCR16C8.C 

8" 



-R8D-D-CCR16C 



--a B6S="R8a6Vl2Ll605R64D- 

8.C16." 

5BB C6$="a37Y0.145Y6.36V10L16O3Q8R16E-R1 

6G-R16E-R16G-R16E-3R16E-8.C16" 

| D6$="a24V1 1L1604Q8E-R16G-R16E-R16G-R 
16E-8R16E-8.C8" 

■ Eoi = '033V12L1602D5A-8>A-< A-R16A- J-A-8 
<A-8>A-<A-8>A-B->C" 

I Fo$=-a33V18L16D2Q7A-8>A-< A-R16A- >A-8 
<A-8>A-^A-8>A-B- >C" 

f;3$ = " B ! C 1 6C 1 OB ! S ! C 1 6C 1 6 B ! C 1 6C 1 6BS ! C 1 
6C16BS:C!8.BS!C!8Y4B.5B'.M!HC;8" 
558 PLAY#2.T$.T$.TS.TI.T5.T$.T$ 

r. ay «2. AS.B4.CS, DS.E*.FS,6S 
; 'I FORI=0TO1 

■ PLAY#2.A1S.B1S.C1S.D1S.E1S.FU.G1S 
.■ 1-LAY#2.A2S-B2$-C2S.D2$.E2S.F2S.G1S 

QBB PI.AYt2.A1S.Bl$.ClS.D1S.Elt.FlS.Gli 
ol B PL A Y#2.A2S.B2*-C2$. D2S.E2S.F2S.GU 
| NEXT I 

i E&HFA2C.25:PQKEfiHFA3C.75 
. nYi2.A3$.B3S.C3S.D3S.E3$.F3S.G2S 
I Ar#2.A4S.84$.C4S.D4S.E4S.F4S.G2S 
OO0 PLAY#2.a5S.B5$.C5S.D5S.E5$.F5S.G1S 
KESHFA2C.75:PQKESHFA'-. 
Pi A , i't2.A6$.B6S'C6S.D6S.EoS.F6?.G3S 
. SOTO 570 



la ' PARODIUS DA! 

CLEAR 2«fl0:_ MUS ICf 1 . • 1 ■ 1 ■ 1 ■ 1 ■ 1 ■ 1 I 
10 DEFSTRA-N 
48 DIM AI15) tBH5) -C(15) .DI15) .EM5) .FIT 

51 .G(15) .HH5I 

St ' 

6B AlB)="a4Tl60V15O4L8Q8" 

' =-G4>G12B12:>E12D2<A2. . >F*16E16" 
80 A(2)="C2C2<AA16>D16F*DF*4DF*16EI6" 
<>e A(3)="<B2B2GG16B16>F*DE4RF*16E16- 
180 A14)="C4F*4F*4 JC4<F« . F ♦ 16F ♦ . F * 16F»2" 
1 "8 At5)="<B4>G4G4B4G.G16G.G16G4.F«16E16 

^i="C2C2<AA16>D16F*DF*4D4' 

138 A(7)="<B2B2GG16B16>F*DE40F*16E16" 

| o (8l="C*4Ft4F+4B4A6Al2A6Al2A48l6A16G 
H6A16" 

158 AI9)="BGEF*GAB>C»D<0DDE-DED" 
16B AI10)="F4.PE-DEDF»4.D" 
170 A( 11 J="A-4D4A-4D4APDEDC<BA' 
18B All21-">C4<B4A4G4Ft4E4D*4Ef 
191 A( 13)="D4>C .<F*16F+204B.G16G>DED" 
20B A(14I="C4<B4A4G4F.4£4D-'4E4 _ 

hi 15>="D4B.G16D4>D.<B16>ED<ABGGG>F+1 
61 16 

... B(0>=*a4T16Bvi5O3L8Q8" 
FOR2-1TOv5:fl(2)-A(Zl :NEXT 

260 Cf 0i="T160VU 33 03L408" 

1 i="G4>G12B12>E12<G4G12Bt2>E12D1<" 

288 CU5) = "V8>D16D*16E16F*16G16G*16A16A* 
16A16G*16G16F»16F 1 6E 160* 16'VH " 

Z I="L4AF*AF*" + C( 151 
>BB C(3)="GGGG"*C( 151 

310 C(4)="A>DDF*D8.D1608.D16DSD16E16DI6C 
16" 

-- i=-<GBB>G<B8.B16B8.B16B2" 
< i <S1=C<2> :C(7)*C(3J 
■ fli='A>0DF*F*8,F + 16F»8.FH6F»4R4" 
I i :-<E2A2A8A8A8DaE-8D8E8D8" 
360 C( 10)="D.D8E-8D8E8O8O.R8" 
370 CHI ]*-A-<B>A-<B>O4L8F + D0>EDC<-BA" 
380 C( 12)=">CB<B>B<A>B<G>BCACACACA" 

131 =-D4F*.016D2<B4^G.<B16B2" 
4 88 C(H)=">C8<B>B<A>B<G)BCACACACA- 
410 CM5)="<B2B2>ED<AB>DDD04- 



Notes' notes J-^'J-V 



STAR SOLDIERBBBB1B1 

STUDIO TAKE r 77t-l 

VJl/i/f-CB^S'E-SflJfflr, -d 



li^Uto Y3?>Kr^A5A?7J 

5^1/icufco, ge^^ofcOfw 

yKax-f57.ft:/ STAGE 1 ■■ 



EXPERT r UmfoDJ?tz>(Dm£ 

ifflB. 3fflfflCL/toj 

95f-( l 57.m r Departure~j ■ 

ART»ffl r ffi©iii*l3^f Ki/VA 






70 



j.*B D(0.)*"T160V1 1 ai803L4Q8" 
441 DI1 )*"G2. >" 

I 15)="VB>016DM6E16F + 16G16G+16A16A* 
16A16G»16G16F*16F16€16D*16<V1 1" 
460 D(2l="L4AF+AF+"*DI15J 
470 0<3>=">D<B>D<B"*D(15) 
480 D(4)="R1R1" 
*C0 D!5)="R1RI" 

HI 0[6)="FtDF*D"*DM5):0!7)=D(3) 
! ■ .' D(8> = -R1R1" 

0t9J ="R1F*8F*SF+8B2R8" 
559 D{10>="B-4.R2R8A4.R8" 

.Ml )="R1R1* 

S50 0(1Z»«"L16A" 

56fl D(13)=-RJRI- 

570 D<14)="GA" 

5BB DM5)="R1R2G8G8G8R8" 

1 
6fll Eiei ="T160V1 iai202L8Q8" 
61 E(1)="G2.G4D4D4D>0<D>D" 
620 E(2)""0>D<D>D<D>D<D>I><AAl6>Dt6F»DF.4 
04" 

630 E(3)="<G>G<G>G<G>G<G>G<GG16B16>F*DE4 
D4" 

6411 E=-D>D<":E(4)=E+E»E*E*E*E'E»E 
658 E="G>G<":E(5>=E+E+E.E*E*E*E+"<G>F+16 
E16" 

668 EI6)«"D>D<D>D<D>D<D>D<02AA16>D16F+DF 
♦ 4D4" 

670 E171="<G>6<G>6<:G>G<G>G<02GG16B16>F*D 
E4D4" 

688 £<8)»"<A>A<A>A<A>A<A>A<03DADADADA" 
6<J0 E(9)*"O2E>E<E>E<02A>A<A>A<D0D" 
7BB Ef 10)="DDDR2R8DDD" 
'11 E I 1 U="02B4B4B4B4>D00EDC<BA" 
720 EI12)="G>G(G>G<G>G<G>G<02A>A<A>A<A>A 

I A >A " 

1 3)="030>0<0>D<D>D<D>D<O2G>G<G>G<G 
>G<G>G<" 

7t| E{14)*"02G>G<G>G<G>G<G >G<02A>A< A >A< A 
>A<A>A<" 
758 E!15)="02D>D<D>D<D>D<D>D<03ED<ABGGGR 



; ■-.',■ F10J="84T160V14O4L8Q8" 
750 FORZ=1TO15:REA0O.N:FlZ)="R16"*lEFT$< 
A(Z) .0)+N:NEXT 

790 DATA 25 .*" .24 . "" . 23. "" .26.4. . .27. " , 
20.8. .23. ".33. "".21 .16. 14.16,19.16.19.8 
. .24.16. 18.8. .30."" 
800 ' 

810 G(0)="T160V15" 

820 <s< 1 l="8CSHri2R4R6.B4B4B8SBS8S16S16* 
83? Gt2)*"B4S4B8B8S4C8C16C16S8C8S4S4" 
5,0 GC3)*Gl2) 

850 G(4)-"B4S4B8BSS4B4S4BSSB8SB8SB8" 
360 G{5) = "B4S4B8BBS4B4S4B8BBH16ri16S8" 
171 G<6)-G(2) :GI7)=G(21 
680 G(8>=G!4) 

890 GI9)="B4S4H16H16Hl6Hl6M16ri16S8S8S8S8 
B8B8B8K16M16S8' 

900 G(10)="S8S8S8B8B8B8S16S16S16S16SBS8S 
8B8" 

SIB GUI >="B4S4B4S4B4S4R2" 
920 G(12)="B4S4BBB8S4B4S4BSB8S4" 

"B4S4B8B8S4B4S&88S8S8S8" 
*G( 12) 

■B4S484S4H8H8M8S8S8S8S8S16S16" 



'- ! 1 


G(13)= 


Ht 


G<14>* 


-■'-. ? 


Gf 151 = 






B7I 


H C» )=" 


! 1 1 


H ( 1 )=" 


99 1 


H12)=" 


1 .1 | | 


H(3l- 


1111 


H(4I = 


1021 


HC5) = 


! | - 1 


H!6> = 


1 041 


H(8) = 


1051 


H(9>* 


8R8R8C16R1 


1061 


HI 10) 


CBR8 




II ■? 


H(11 > 


1000 


H< 12) 


1091 


H(13) 


1 10C 


HC14)- 


Mil 


HI15J- 



T160SPI2000O3L6" 

C2R4R6.R2R8CCC16C16" 

R4C4R8R8C4R8R16R16C8R8C4C4" 

H(2> 

"R4C4R8R8C4R4C4R8C8C8C8" 

"R4C4R8R6C4R4C4R8C16R16C8" 

H(2) :H(7)=HI2> 

"R4C4R16R16R16R16R16R16C8C8C8C 

6C8" 

="C8C8C8R8R8R8C16C16C16C16C8C8 

="R4C4R4C4R4C4R2" 

="R4C4R8R8C4R4C4R8R8C4" 

="R4C4R8R8C4R4C4R8C8C8C8" 

= HM2) 

="R4C4R4C4R8R8R8C8C8C8C8C16C16 



1120 ' PLAY 

1130 S0UND7.21 :S0UND6.12 

1140 PLAYf2.A(0).8(fll.C<0).D[0).El0).FI0 
) .G<0) .hi I 

1150 PLAY#2.A(1)iBC1).Ctl).D(1) .EM) .Fll 
l.GMt.Hll) 
161 FORZ=2T015 

PLAY02.AIZ) .B(Z).CIZ).D<Z).E(Z).F(Z 
) .G(Z) .H(ZJ 
1 180 NEXT 
1 190 GOTO1160 

r Departure for Spacej 

10 'GRADIUS III Departure for Scace 
20 _MUSIC(1 .0.1 .1 .1 .1 ,1 ,1) :CLEAR 3500 
J| DIM MI1S! 

40 FOR 1*4 TO 15:READ AS : AX( I ) =VAL I "&H"+ 

AS) 

<0 NEXT I 

6! .VOICE COPY (AH. 8631 

70 DATA ED2B.00CE. 0000.0 

80 DATA 1559.7187,0050.0 

9(1 DATA 0753.6133.0050.0 

100 S0UND6. 0:SOUND7.28 

1 10 DEFSTR A-K.T 

120 ' tittl/ll t*7*?-h I CH-1 ) 

l ?fl C *"Y16. 169BUl6Y16.175aui6" 

140 EX="Y16.2023U16Y16.208aW16" 

150 F ="Y16.2273U16Y16.2S33W16" 

160 G *"Y16.flaui6Yl6.5awi6" 

170 A =-Yl6.31DU16Y16.373Ul6" 

130 BX="Y16.48BW16Y16.540W16" 

190 ' llllltlt BRASS 

200 A5="Y48.236 06L8Y16 . 2Y32 . 273U2. "t-G*G 

*G+G*G*G»G+"Y32. 1 1CG>" 

210 A6="Y16. 172Y32.28aw2&aW8"*C*C*C*C*"Y 

32.12<B-4.A4.F4" 

220 A7=-Y16.2Y32.27SW2.-*G*G+G*G*G+G+"Y3 

2.11R8G>C" 

230 A8*"Y16.230r32-28aW1"»F*F+F+FtFtF+F. 

F; TR="Y16.172Y32.263W4-*C*C»C 

2't A9=TR»"Y32.10<<G>CYl6.2Y32.27au4-*G+ 

G+G+G*"Y32.11 FE" 

;5B AA=TR»C+"Y32. 1 0< G >CY16.2Y32.27aW4"*G 

»G+G*G»"Y32. 11 FE' 

:&B AB*TR*C*"Y32.10<G>CY16.34Y32.27fflW4"t 

AtA+A*A*"Y32.11 GF" 

270 AC«TR*Ct"Y32. 10 C0EDC< BGR8>CD" 



: - : 


MX 


"Y16.205Y32 


.263W4-.EX 


♦EX+EX 


♦EX»*Y 


32* 


|0i B 


->E-Y16.51Y32.27aW4"+ 


BX+BX+ 


BX*BX+ 


"Y32. 11A-G" 








290 


AF = 


"Y16.205Y32 


263W4"*EX 


♦EX*EX 


+EX+"Y 


32. 


I ICE 


-Y16.172Y32 


28BW4"*Ct 


C*C»C* 


•Y32. 1 


2B- 


A-G" 










501 


AG = 


"CDE-04E-FE 


-4FF*F4F*A 


-4* 




511 


' lllillll BRASS <»**-M 






121 


B5 = 


"Y33-32 06V 


23 2L8 G1 


&G CG 


>" 


SSI 


06* 


"C18C<B-4.A4.F4" 








B7« 


"G1 .R8G>C" 








S5I 


R8- 


"F1&F1- 








360 


B9> 


"<C25C<G>CG2.FE" 






571 


Bft = 


"C2.<G>CG2. 


E" 






- T ?? 


Be- 


•C2.<A>CA2.GF- 






191 


BC" 


"C2.CDEOC<BGR8>CD" 






- II 


BO- 


*E-2.<B->E-B-2.A-G" 






1 11 


Bf ■ 


"E-2.CE->C2 


( B-A-G" 






..2.* 


■ / 


tlfittl CHORUS 






< ! 1 


C9" 


'06V12363L1 


C. . .' 






141 


CA = 


'(B-JB-" 


:CB="ASA" 






4SI 


CC= 


"FG2. >C8D8" 








461 


CO" 


•E-&E-" 


:CE="D-&D 


" 




•170 


CF = 


*C8& CSC" 








(81 


D9* 


06V12063L1 


G. . ." 






(91 

5 f * 


DA- 
DC" 


•<F&F" 

"CD2.G8A8" 


:DB="E&E" 






510 


DD- 


■B-&B-" 


:DE="A-&A 


• 




521 


;jf- 


'G8& G&G" 








531 


■ / 


llltlt 4TH 


BRASS 






c -B 


CS" 


'0536V8L1 C 


C4." 






- J 1 


C6= 


"<B-8&B- B- 








561 


C7 = 


>C.&C8C4" 


;C8="<B-8&8-&B- 




570 


05- 


*04a6V8L1 G 


64." 






sai 


D6" 


F85F F" 








591 


D7" 


G.SG8G4" 


:08="F8&F&F" 




611 


H^ = 


O5V10 L1C. 


." 






a 10 


19= 


O5V10 L1G. 


." 






620 


CG = 


0536V8 A-4 


B-2B8 B4. 


D-8&D 


2" 


e j ,i 


DG = 


Q536V8 E-4 


F2F*8 F*4 


A-8&A 


2" 


040 


' illllftl GLOCKEN 






650 


E5- 


B0O5L8V8 G>CG>C<<G>CG>C<<G 


CG>C< 


<G>CG>" 










660 


E6" 


C<< FB->FB- 


<FB->FB-< 


F8->FE 


-<FB- 


>FB 


<" 










670 


E8= 


C<< FB->FB- 


<FB->FB- 


< FB- 


FB->F 


B->FB-" 










CB0 


EA = 


<<F4 B->FB- 


<FB->FB-< 


FB->FE 


-<FB- 



691 EB="<E4 A>EA<EA>EA< EA>EA<EA>E" 

700 EC="<C4 F>CF<CF>C<D4 G>DG<DG>D" 

711 ED="<B-4> E-8->E-<<B->E-B->E- t<B->E 

-B->E-<<B->E-A-" 

720 EE*"<A-4> C+A->Ct<<A- >C*A- >C+ <<A->C 

♦A->C*<<A->C+A-" 

7J0 EF="<G4> CG>C<<G>CG>C < <G>CG >C< < G >CG 

>C" 

74U ' ////////BASS 

7>0 F5S = "V903l_8312 CCCCCGCC GCCG4CC* 

7c0 F6S="C4CCCCGCC GCCG4CCC" 

77a F8S="C4CCCCGCC OC<B-AGFED" 

7a^ F9S="CCCCCCCC CCGCCCG" 

7 va FAS="<B-4B-B-B-B-B-B-B- B-B->F<B-B-B 

->F" 

;^H FBS="<A4AAAAAAA AA>E<AAA>E" 

ctlB FCS="<F4FFFFFFG4GGGG>CD" 

S20 FDS="E-4E-E-E-E-E-E-E- E-E-GE -E -E-G" 

830 FES="C»4C*C*C*C«-CtC+C* C+C*A-C*C*Ct A 

S4B FFS="C4CCCCCCC CCGCCGFC" 
B50 FG$="<A-A-A-B-6-B-B-B BBB >C4CCC" 
860 ' llllll// DRUHS 

373 G4="V15 Y39.2Y24.20B MS16MS1 6B8MS1 6f1 
S16B4Y38.7flS8nS8MS8Y38-5" 

eaa KX="R8Y38. 7CB8Y38.5R8R8C88Y38 .7B8Y38 
■5C8 CB8R8Y38.7BC8Y38.5BC8R8BC8Y38.7CB3Y 
38.5" 

-v(* G5 = "Y24. 150Y39.2CB8Y39.5"*KX 
901 G6="B8 C6"*KX+"B8" 
911 G7="CB8"*KX 

. G6--B8 C8R8Y38.7CB8Y38.5R8R8CB8Y36.7 
B8Y38.5C8 B8Y39.2Y38.7B8B8B888B8B8B8Y38. 
5" 

93 K1="B4r1S8B4B8rIS8":K2=-R4rlS4B8B8rlS4" 
9*0 G9 = "Y39.2C4Y24.200t1S4B8B8MS4"*K1 

GA="B8"*<2*K1 
. | GC="B8"+K2+"Y24. 188BM16BM1 68M8Y24 . 14 
0B8B8Y24.906M88n8Y24.508M8r24.200~ 

GF="B8"*LEFTS(IC2S.11 )*"8Y24 . 120C4. Y2 
4. 180BM8Br18Y24.140BM8Brt8Y24.90BI18Brl8Y24. 
200" 

9S0 GG = "Y24.T20CB8Y24.200P1S8rlS8Y24. 120C6 
4Y24.200MS8MS8Y24. 120CB8 Y24 .200R8MS8r1S8 
Y24.120CB4Y24. 180Brl16BM16Y24 . 140Br116Brll6 
Y24.90BM16BM16" 
990 * ///////// NOISE 
\itt KS="V12CV10CV8CV5C" 
1010 J5 = "L32R" + KS + "R4."tt:S*"R4."tKSt"R4. 



»KS 
1020 J6="R4. 



*K$ 



■ KS< 
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ft»UO«fc'*-i: fc.B-DTL.* 
rsfc. (*_':) 

XENON 



9:4Bpi 11/17/91 OPLLdriveKOP 
XplayerlK MUS I C l;-3v>T 



*ttv-T»£v<£v»5£*s2*v> 
* Lfcfflt? HOR-NET tl'Ji; 
5C OPXP150.LZH t UG6.PHA * 

fc'*oT*>*fcS^i.8oTI«g 
»(VS). ^«'<,«'of:? 

XENON 







18:43pi 11/18/91 OPLLdriverfOP 
XplayerlK MUS IC tol-T 






;loA*T* ta. Ring. 

. Y sffl #**£>#■? -7" 
TJUT, *#»«*« 

SHUfcotijiia^A,? 
. (*a-tA,afcA,-p-r*> 



77 

?) M 

*ftro 
(7 TV 
tt«K 

V) 

feCfc 

/-SfcHLifcAtfl Al A 
:j§*£HlY7;i,v§o 



ll:5S P > 11/19/91 OPLLdriveKOP 
XplayerlK MUS IC K"3V>T 


**. *4»L,-tt- 

5*< *#tt&<cv,^?-J- 

Lb 


tilif. OPXPLAYfflt* 
JftJJ'l-T**** 

PMEXTTSWL/iffltfVtTa 
vo«> • • • 
PItCBJt liD»ttVVi)> 

K7i#* JLT- • rt y 7A># x 

T • • 

2 08>< 6VT>Jf A,attt*S*>^> 

TL,S5,^T-r 

^A,t'a- 


*4> 






12:53ai 11/29/91 OPLLdriveKOP 


XplayerlK MUS I C RWt 


J—' *f')>l**lt»llf 


■f'Ofcf rJ*i>L,V 


HCett<&r>fcttV**^? 


pd sCJJopxp 1 ayi 


»Cffl2o«)7'DJi , 7i>*i sh, 


pme x t 222 


THMLTb a s i cCUTb 1 


oad" opxplay. Id", 


rl/fc&£run"ug6. ba 


s"-V>callmload 


ttZLTD-kLT-t a ! £*>6fc. 


-5*< VSJtfA 



<7)£W* S<OT=)f * 4-BjtrU t IS 
rvnKrtJ-Clffi/i I TV 3 g* •;/ h fc 




isutorffly^'isiSo r HB 

-12DDjtU5©BV--ffl z E7 1 ' 



BnwTTnrTPffflTS 




HB I -1 2004«IJTf;7. 


t4*E 


. 121* bTa>6S£S-r> 


T**spt- 


lack 






7:2»p> 11/29/91 OPLLdriveKOP 
XplayerlK MUSIC Cot>T 


K7-(A'[(igttJtp m ext 


C5i.-ofctt«<£ffl1?L*54> 


All VVT-f friTm s x-m u 
s i o iif-5»5ffl«> 

*5«>6^ (*ts^>-f rv^T 


V*l^%fo*oT.**:V>. 



FMSiiCDffiSBAS I Ci 



8:«lai 11/21/91 OPLLdrivertOP 
XplayerlK MUSIC KOVT 



NSX-HUSIC t OPLLdriver »itv 
K-3t'T 

UG6W>t»T. HSX-HUSIC i 

MS, *lXMglX^< ti>i 



PLLdriver fflai-«ia*T'7>*> 

«i--fflit5«aw "isa" t-t. 

TSi. %*-3t»HlL.*-rto. 

LT2h77>4(flOT. Hl» 
RfiLttJof. l-*CtFM 

tULxt-t. zoaskitnsx-msK 
x- % »*av c t it av i i T-r 

Cl»K*V<ltfl?t**iC. OP 

LLdriver T'ttMM L4SH.8 t T 

3-KWItt'^?7*>?»*> 
?>»h !)*•!? 3 V 5 y 9*6111, 
Xi-t. *s. ;c«-Hi HSX-K 
USIC iM^S*5')li»0*Ljs. 
A. 

ft0>«*Kilfjb*><> r- (»44> 

®24T. ;ft^n?< gutH 
«K2 HyfX-maUffbls* 

t-a*« nsx-nusic -pii4«aj 

»Wpsc<(- F-eiirtiKx 
vsn-yojMfttftSEft) /< 
*->*««L. v->*m~>x 
;-<X**y\z\,, IIi;/-fX 

x>ta-7 , ttKSX-llllSIC Tfc 

4>. #*l;#M4!4>4.i3* + . y 

■fX*ffi:o.>rtH»Tt. 

lt^bi>K J ( i e.-a-5ffl«r NSX-NUS 
ICf J f>5©liB«*<TiTt,ai 
*i•S^^)>. OPLLdriver T?li=i 
1"> H8't-3TOKTt. 

#MUTV^*-ffflT'. T'Di/^S 

gi/Tv^sr. Nsx-mjsic x<mh 
mn pl»y»2 x i i*<e,mt&t$- 

•et'i LTtf >iK«5^Siei;ft 
ft. »i. *#ttS?±'jtBGM«, 

«'j:l.cux h*A/;f)T#*-r. 

T'*5i OPLLdriver ffl^iaT 
L-T* 5 *-TJ:A ! ) 






•V^'*;b^7 i 'r^^S9-<7 -^^ 




PEKIN 



•Melt Down BBS 2/X3K: ic^./u 



•a«ijw*is 

X*n-S: J/7KJ I S 
ii«iSS:3DO/l?.00/P400bPS 
aii75a : S~M 

rt'jy-f— :*b 

XS^^e^h : 1 ti'i/h 
7P-*jai:33za5tXDN) 

j/7s*jai : s;«ft»n(soFF) 

MNP: ^5X5*TiSe 
-y^S I D : GUEST 
^■Xr-AX^-K :»L. 
yT-MilfflCDHH : SKB15»«Z; 

msits : ssmaizm 

7?MMiM : 0425-71-1369 

H««8: 1 

*gHS : S4»H 

SM» : 1B0A 

MSB : 19B9*4H?.2B 

A«B» : ■S , 3.hr7?fcXL,r!tSSB««* 




MFAX : »l»5r»*_T ! 

L5t>Tt. *. rjifiSI 
W ! J OSIT«).h*l7TI'* 

.ess ' j »SBT-r«>i*j (* 

) »i. 3>t'i-SH«ffl*- 

IOA#t'ttL. /Eiyiii: 
ff LV-AfeS-V'T-r. *t,L3l- 
ffltt. *.-&*■ A- 7htl'9*- f 

T. it,. ¥-< i-*.if6SK«J; 

D UhVinX-ttf-. ?<!?)•(?> 
i. 5 l: fc'/LifA,!Sa£i!S##'.c 

M F A N : > v t - > * if i f 

c»A*:7S-»iT4!;«f 
5HJl5»*7H!ltt<. iK 
- Kffl3S*l:*SAftSJ;}l;g 
i)LTi>Jt. S»OAt*tt, 

■f *. B£A.tr»;ff- KJY7- V 
Tt«»*-fL.. MSX ■ FAN 
fflBJft#4 ! »tA(?) l<*1-iS'4. 



•iill»J»*l« 
X¥n-K : ^7KJ I S 
iS«a8 : 3DO/lE0O/E4DObDS 
H«753 : *=■ 

AUf<- : «CU 
XK'>7e^K : l e->h 
?□-»» :fe;Si(XON) 
i/^SSJiS : iscatoaucsoFF) 
MNP: ^^xssrae 
■y^KID: GUEST 

•yT.h/'cx'j-K : /v>k;ls«A7] 

■7"XK«ffli7jSiJH : «KttS0»*r 
*-s'S-Cy*t'(-J7"j'J : ISO 

• 7Q7-T-JL 

ASfi : M*4 

Bitt* : WSKBiRm 

y^feXSBS^ : 04?9-BE-?BB? 

SIMK: I 

mm : S4RH 

SMS : BOA 

MBB : 1990*4HP?.B 

AS75S : -y^Kr-y^b^L.^ I nv>KSHff 









5<£:>£/\VQ 



IS):'-MSX-D0SOT7 1 VX^^fFSiL>T(7)(JDOS<7)T-VX?OT^7iS:*5 r MSXD0S.SYSj£ r COMMAND.COMj^=lt'-r-5tl^ 
C£ DOS2T-ii r MSXDOS2. SYSjt r COMMAND2. COMj%-3 1— f5<7)fcf„ 
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TrtX-mttOQ&J-WW&a&D 



IT, $B©7U-0i7B 

n-€tifrA,fcA/K:§fflUd:3o 

■&PMextl*Bg£&i;^ffliS 
2t^-/k wopxpiayerli 



7 tT - 7 y S L fcfl \j IW4 
5„*3\ MSX-DOSfrMS 



ketchbookBsOPX- 
playerfflroTT'jyi-iUg^T 1 ' 
-£*. wPCMPLAYBP 

DOSlfflc!:DOSeffl©Ea 

^aso. MsxewKrvR 

AM/jM P_8KA-f S££$S 

r«^s„ &BEEP1 £§» 
PCMf-5„ *-TbB^P^ 



^ECD^'J-SiT 7 - 



•SSflK'y-JU 
•U&7*n:7'7A 

•pcm7V-t-\'— 

•PCMx-? 

•PCMx-? 

•<r'-A 



PMext Ver.2.22(by YoshihikoMino) 

OPXplayer Ver. I.50(by Ring.) 

Sketchbook (byW>i;) 

PCMPLAY Ver. 1 . 1 3 (byjJ&fi&Nl) 

B E E P I 

1 

TL(byS.Nishikawa) 



^OPXplayer, Sketchbook. PCMPLAY IJ T 7. #■— * -y I- MSXti'hfiW. L $ I fc. PMext, 
BEEPI. *« = 7x-f»- 7>b3g«L J Lfc TL-lJPC-VANfribiKKL* Lfc„ 



Hif<X^O)ffiD?D 



ffz>\,\zztj.fr-Dtz£i\z>mi> 

lAAfctt®fV 77CD0S© 

T-fX^^fF§fflMISr27 



©MSX-DOSCaXDx-fX^fES 



DOS<7)7°n >7° h (A>)* 5 Rjk 
*#.*«»£ Lfc«j, WSOnv 

• MSX-DOSCD*it% 
A>COPY MSXDOS.SYS B:© 
A>COPY COMMAND.COM B:Q 

• MSX-D0S2©i§£ 
A>COPY MSXD0S2.SYS B:Q 
A>COPY C0MMAND2.COM B:© 

• W»T ! -<X^A^6=lt!--r«*^ (BASIC) 
COPY"MSXDOS.SYS"TO vv B:Q 
COPY M COMMAND.COM"TO"B: Q 



OTffi^t- L WoTf-f X? £A 

tlfrKZfttzo D0S£$$oXl*4 

l*A fc BASICCDn £ -**fcft 

ot> ttii 

bMSXD 
S.S Y 

si:C0M 

M A N D. 
COM<7>2 

77-fH 

at- L=t 

To 



4-3 f- L /tftftx < x? 4-A*l 
• MSX-DOS©*^ 



D0S1 i:D0S2T3 f-t57 

fen****.*****'.*** 

C ttASf 9 0(7) 7 7- <f M>t # 



A>COPY PMEXT222.COM B:© 
A>COPY OPXP150.LZH B:Q 
A>COPY UG6.PMA B.Q 
A>COPY PCM113D1.LZH B:Q 
A>COPY BEEP1.LZH B:Q 
A>COPY UGUISU.LZH B:Q 
A>COPY SUSI.LZH B:Q 
• MSX-D0S2C7)^^ 
A>COPY PMEXT222.COM B:Q 
A>COPY 0PXP150.LZH B:Q 
A>COPY UG6.PMA B© 
A>COPY PCM113D2.LZH B:Q 
A>COPY BEEP1.LZH B:Q 
A>COPY UGUISU.LZH B:Q 
A>COPY SUSI.LZH B:Q 



7"rjb7j' ; AorL^s©r\ tu 

£^B'S/fr&ffl/co DOStf 
ffl.Sr'Sfcb. T©7J=15^S 

^iicji^i/rBU^ tag© 



WUgB7>©^X?tf ; il^CJ7S 
OS1 £D0SRTfil5Zt;fr 



B^i^rsScfc^cTS 



;Jt^BASICe7)*>5MSX(2+fel 



• MSX-D0S v MSX-D0S2£5b : fe »CttDOS* 

A>BASIC© b BASIC UL 

CALL KANJIQ tti-gDO 

CALL SYSTEM© Sl=M* 



P 



Mextzm&mmTz 



m* , y-*PMexttt 77-f*« 
«rA*f5/i'WTa*Ta*«:» 
*t5fflfc'„ fcrtfL, -<7)t#iS 



• MSX-DOS.MSX- 

A>PMEXT222© 

Extract(Y/N)Y 



^T^7tSt^gB-C"62fe(7)7 
• MSX 
A>PMEXT 
A>PMEXT 
A>PMEXT 
A>PMEXT 
A>PMEXT 
A>PMEXT 



¥*""«/t:T' # S J: -5 tc 4 o X v. > 4 
l* t Wi#> 4 1 *X5WJiJS ZtiX 

oX^/hii?*" 
DOS2£'?5lb : fc uiWfrfr; - 

r Yj&^/cis 



5o T* 4A*-3 /z Att fc t -it* 



• MSX-D0S2C7)«^ 



OPXP150.LZH *.*© 
UG6.PMA *.*© 
PCM113D1.LZH *.*Q 
BEEP1.LZH *.*© 
UGUISU.LZH *.*© 
SUSI.LZH *. *Q 



A>PMEXT 
A>PMEXT 
A>PMEXT 
A>PMEXT 
A>PMEXT 
A>PMEXT 



OPXP150.LZH *.*Q 
UG6.PMA *.*© 
PCM113D2.LZH *.*© 
BEEP1.LZH *.*© 
UGUISU.LZH *.*© 
SUSI.LZH * *© 
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MiiiCH. 7'J-^i7^UCIt l 7U-7i7J^fcAC/</'n«&^^TW:«Stt4fii5tl,-i**l:a 



r 



£ f K * zi 



* > 






wan, ^i^&dric^nra 

iHSTYPE=lY>Kr'^S-r 



h£§SA/"C:3!*d;5 

ff5 fcfc\ ;1^BAS I Cffl 






O 0PX7W*HDK*:i*>S*raiza?*T3 © H®0X^P-;i/«lh»SfZtt 



T'li K -y * 7 7 -f ^^liffiicft^ 
LTWi„ ZCTttfJt U 
OPXplayertf) K+a J* > F £S! 

U±Jft*/!to TWawK** 

frTftli'OPXplayerOT K + zl> 

A>TYPE OPXP150.DOC© 



ftaractto r*BW--f s l in, t 



H®<7)7:? n -^%itftS<OK* 

<TfcCTRL*-2:S*-$rW 

-•>xr0>K-y*?T-f/W*JJiT 



COiS l J , BuiSOT r T YPE j n -7 > K 

[coo'tt-CA^tnii'i^v 

PMEXT2.DOC 

0PXP1 50. DOC 

UG6.D0C 

PCMPLAY.DOC 

README.DOC 

SUSHI0.DOC 



FMIIOPL L £ tt & A; £ ? 



MSxrFM§s£DM,rn 

3=&©ttFMA-:/^2+WP§ 

©iiacftiitrnrnsMSX 
-mus i Cffl^to-^ncfcot. 

Sx-CMSX-AUD I OtU 



5 F MSis* - S 'J -7 y=b35 o 
30MSX-MUS I CCB 



£ 



OPX^i/-ri7- 



-OTOPXplayerli 
OPLLdrivertWyi'X^Afc L 

X^#*0S8#T"OPLLdriver 

(7)15 9 MB* * SCt *""T'# tsfr 

-?tz *tix-t,&m7-'4x?*\ 

fix B ASlcic L fc*e» QHSRf* -r 
7.tkttL\.*X<)-b-y \-titl\ 
D0S<7)7"a >7* h^'ftT^St*; 
il-CB ASIC O t A*t S ) TUTF 

BLOAD"OPXPLAY.LD",R O 



fc1"5 t!iffiU r OPXplayerversion 
1.50 By Ring. jfcl»-3 IC^VWr; 
#*X5/:-%-5o-ft'COPXplayer 

<*<fc7o ;H#t 5 fc(7)li Sketch- 
book, 7 7"fA.£UG6.BAS£ 

BAS\Cfrts^tWlfrts\.\ ;i$ 
BASIC* ( '^^A(iOPXplayerOT 

ffii^^tot 1 «i*oiait 

7°P^5A%-ffoT*J:To 




37U— ^ZTWSRdUHHK) 



£ <UD0S1ffl77"f 5OTAEG 

tsWzfrhtoo %tlfr<z>, AEGfct 
KS^-L/zVer.0.84A^JH£(91 
^11fl11B)T"«Ver.1.01 ^fc 
ffKioTUSo ^-*R<7)« 
JS*- K^*#t\ DOS2^C7)*#S 
(;U-KZ)*), 7 7"f.'K7)/±,1&i 
3 tf-ftf A"*iiin?n^(7)/i*o 



•AEG 

• DELETEnv> K4-*i»>-fe 
JUt 5fc£ESC*-£W1-<7)7r 
*-; Rflita.TF1 *-£fflTl 
S -3/ib77-1';UA < >gxT L i -3 

£AEG0>Sig»«:F 1 *-T"(± 
ft<, F6~F10*-CL/z«-5 
frX^tlg^ito 

Ver.1.01^b r WRITEj, r D 
ELETEj, r QUITj(7)S-3V> 



: Ssu^ r OPLLjd;L\5©7c 
^©0PLLlC#^D,|6"rm 
^£fcB^<7)liFM§«Dffi!gB 
AS I C&ffl7c'A\ V-k&ii 
fflBGMdzU-CFM^S^DIb 




OSketchbookOT?-f h;Wia 
RUN"UG6.BAS"0 

^:?^.5o LWfb<^-3Tl^t 
BBOTC*) o T38I ^r fct L' ft 5 o 

JStH+l-CTRLt-fc S+-& 



,:,- 



"• H "°" ST ;«i! !'f" ! "'<(? « 



- 1 X^-Ts^-iit^OTt^TCT) 

• AEGfcfr-<re*iJT«SlT 
C0*^fl o (SSSI5 MET-? m.) 



i'B^vVlgr'BgOPLL^ 
*CBGM^0,|6Urn5 o 

'Jt5o Ttt, orUiH^BASIC 

frts^Acntztbiz 1 ttfoafltt 

CALL ML0AD("7 7 -f JU£")Q 
CALL P O 

77-f i^Ot ^^)U(iT<7)50 
»77-f ;u*< A 5 (7) fc* (ffiSS^tt 

W«FariS)o 

SEIYA.OPX 

HARUHI.OPX 

KIGAKARI.OPX 

CRISIS.OPX 

POOLSIDE.OPX 

MAmzttPOOLSIDEtsAsfrfr 



• FMTM 

I — X*- KA"'*> J: o t •? ^OT-r 
HfCttOf>t**fcl\ X'Ztzh, 
/>4>$ U-70)^- K fefFo 
TtbiStTftLL^fto TYPE 

37> K&lUx*X h 77-f a- 

tzllzimfr-iX^Zto BMf 
777-f7? ^rR/Kt 5 'y-;u fe 

^ /; L liiiffi ^r L X tt l*0>Tttt 

- 1 *-"c $ 4- 1 »«ytf s 4 mt z. 
(mm '&$*-' im.) 
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PCMlil*o35£LU 



PCM©Sigd:H4©^-Jl/tf 

ric^Ji/S©is^tfPCM^ffi 

^©■SCcfcSfSIftrli&K 

e^^g#©^r'S¥ia 




PCMPLAY 

(DOS IRS) 



;otpcmplay(msx-dosks) 
UttfclT0>6*30>77"fA**£i 

T'PCMPLAY.COMtiPCMfcS 
(f) PCMPLAY.CNF ttMft * IS 

1 PCMPLAY.DOC li PCMP 

LAYOTK-y^Z-OUo 

(J>PCMPl_AY.VER0:|B!5liIl 

© HOWFEEL.PCM tt PCM x 

©HOWFEEUINFti PCM (7) ft 

S* f AoTl>5„ 

Tii£o* <-tt->y^OTHOW 

FEEL.PCM^HiLT*J: To 

A > PCMPLAY HOWFEELO 






n 






^■m, f-h-t LTitSJtL/itL 
4' A^<7) #> 5 <x - A left JiA"' "-? X 

•cttutt&Uo 7ny?<f iv 

- A&A,jWJ7 7 >y^X-b Z'h 



7>ffl^ri2 u yp-tu-isB y 
-7ft'Rr'©PCM©ffi^n^B 

tzl\1i2l\ZSu%.i:Z?>tzZ5t>\ 

gft<Dj£*yyyvyy\jzm 

i5ti.%fi--$-£(Dtzti\ ZZZ 

immmz-cDPCMCDfewfi 




^Er^ct5 

fctxH'.XBBDOOCIiADP 
CM£n5PCMJS©3^?tf 

PCMgS&^tffr/vrnS*: 
l^or, S5AS£+t>?'J 
y?'LrFMg;S£-*giaffc> 

L/fcournSoPC-gBOi^i" 
ri s^sy c p c Mffl©x -> :w 
Aorn-5wrtt&n©7c7j\ 

aSPEAKtL\5 
MACfflWPCM 



PCMPLAY 



OPO*PiAV<n^iu7WmzA.tj;Ctz<$ 
^iPfrlRZ^tztzhn h^t 

^■nmztiztkx-^io 

A > PCMPLAY /P2 HOWFEELO 

54ttCoi.*i:5SI«Jfct.*fcStt 

A> PCMPLAY /?© 

*n5o4-)t(±PC-9801<7)SPE 
AKx-? WSR38&.IX&& 5o 

A > PCMPLAY *.SPK O 



(DOSEKS) 

- *> b l£MSX-DOS2R5<7)P C 
MPLAY/i'o CWy-JHCf 2*1 
Tl>5<7M£/;*W;^MSX-DOS 

'I)GIVEME!.PCMliff*(7)-fc7)ll 

(DGIVEMEUNFtt PCMC7)1f$g 
tf\r>X^i7T'(n>tz 

C7)/--*A"\ -<Z)PCMPLAY(DOS 
KDOS2t**>bfc)!iVRAM128 
K'<-f HiLL<7>MSX2IUR$OT«5 

Rfc^*XtW1-<7)ifflCOV.^-Cliff 
±C7»±75A' c 'iioT< 5o *-#R 
•t'(iPCMA' f J£«<*ft-CV5£«>s 
PCMx- ? (£PCM§iBT*0>£ 

tt PSG^S £fe -p T »§ b * T l* 



^ — A fe ^ u 






r^^nrnsMSX©^ 

-A©S5S^nBd:'f'<aLV 
%1t,l\o&Zl\x.\£fc{j5Z>7' 

>^A©B5tf^L\ -&nrt 

?£A*rt«J3i£A*u ^n^T" 

A > SUSHI © 

tSir^'f h;HiiSA f S?:^£ft5o 
zcD-tr-Mt-y 3-f^f-f7?* > 
V7*-C7"H' T 5 J: i l-t' '# t 



a^CIJTtS-y-A^SSA^b 
gtfitt+^n©^ ^@i|SiiU 
fc^Ujt,^©^^©!^^ 

pc-VANcisornfc©^ 

l»So Pa-fXf-f7^©A#J 
i>m&t£o tf-M*tl(r>titzt 

-^ntt^-X{zt£\) s stop 

*-«-flttV-A4»?TLt 
DOSU^-p-C < So 4A^4A^'y 
7 P T'®^X* 5 t frti 'J Ss L tMfo 



ft&Z>(Dtzh\ UsZtti.lMz 
L\cfc5/co 

mm, Msxic=fei°i^©v7 

SIS^L^©^? iU5^P^tf 
ftur<5ffl/ctf\ MSXPr- 
t^-Ttt'RrlSSLfcPCMx 

CfflSPEAKx-^SrfuK 
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2BC=15:COLOR=(2.3.3.l):LINE(a.15B)-(2S5 

.16e).14.BF:LINE(B.1B)-(3B.11B).C.BF:LIN 

E(B.112)-(5B.149),6.BF:PUTSPRITEB.(55.13 

4).C:PUTSPRITE1.(55.134),2.1:F0RI=8T01:P 

LAY"SM1BeBB05LlBA2F2G2C1C2G2A2F1":NEXT 

3 B F0RI=BT01 1BBB:NEXT:F0RI=BT0185:B=(B+1 

)MOD2:PUTSPRITE2.(A.134) .C,B+4:A=A-1 :NEX 

T:PUTSPRITEB.(57.134).C2 

4a PUTSPRITE1 . (69.134) . 2 . 3 : F0RI=AT01 BB : P 

UTSPRITE2.(I,134),C.6:NEXT:PUTSPRITE1.(5 

7.14B).2.3:F0RI=57T01B8:PUTSPRITEB.(I,13 

4) .C.B:NEXT:A=1BB 

5B FORI=134TOASTEP-1 :PUTSPRITEB,(A,I),C: 

NEXT:FORI=AT0134:PUTSPRITEB.(A.I),C:NEXT 

:FORI=8T05:SETADJUST(RND< 1)»17-8.RND(1>» 

17-8) :NEXT:SETADJUST(B .6) : F0RI=BT03BB : NE 

XT:GOT05e 
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M<DM^ * 



2I]gru*&93*:Sfl§l/rbg:ofcl 

S©12iitfF.I.S£>(MSXt)o ^C1«£ 
Of, ®Ktf&fr&fr££&&©r, Ufc< 

6iS^fct- JSSto »ttA£©JS«tt8 




OSft ; 77 ij 77 U t gSSCKWf SSigigAWiA SffcJS 



^WbfiLct:5o 

1 COL0R.8.B:SCREEN5:DEFINTC-W:Z=l .7:8=6: 
SETPAGE.2:CLS:FORI=2TO 8:J=I/3:COLOR=(I. 
7.I-2.I-2):CIRCLE(8-J.12-J).15-I»1.4.I.. 
.1.5:PAINT(8-J,12-J).I:NEXT:C1RCLE(4.9), 
2.15:PAINT(4.9),15:CIRCLE(11.9).2.15:PAI 
NT( 11 .9) . 15 : FORI =3T08: CIRCLE (6*1/2. 14*1/ 
3) .2.I:NEXT 

2 PSEK4.9) .1 :PSET(11 .9) .1 :SETPAGE.1 :CLS 
:F0RJ=18 T0la6 STEP48 : FORI=8T0248STEP32: 
COPY (a. 8) -(16. 24) .2T0( I+8.J).1.TPSET:Z=Z 
-,B9:B=B-.22:FORN=BT03:X=N»3+I+12:Y=J+22 
:F0RK=BT07: CIRCLE (X.Y) .2,K/2+4:X=X+(N-2+ 
.5)/B:Y=Y+Z:NEXTK.N. I . J : SETPAGEB . B : Y = 78 : 
A = -9 

3 F0RJ=1BT01B6STEP48:F0RI=BT0248STEP32:C 
OPY(I. J-1 ) - ( 1+31 .J +46) . 1T0I99.Y) .8:A=A* 
. 75:Y=Y+A:F0RN=aT03B:NEXTN.I . J:F0RJ=1B6T 
01BSTEP-48:FORI=224T08STEP-32:C0PY(I.J-l 
8)-<I+31.J*46).1T0(99.Y).B:A=A-.75:Y=Y+A 
: FORN=BT038:NEXTN. I , J:G0T03 



93-V£±zmtk9&* IS 



up- 

S2'»-(l5i 




a—?%mf&, tL\5t©(-ttO>K^*)c 
oh, ufcufc, zoi\o9&„ wndzsc 

b1t£&lZU£B<® 

tfjg£fc©#sjsr£ 

SPIC&ofc©)^, if. 

0%%.ZWlt>Z>£M 

<fcl+7.A-Xl;«*:7rj-/l- l\tj.l\ 

1 C0L0R15. 1.l:SCREENS,1:CLS:LINE(58.B)-( 
286.211).14,BF:LINE(5B.B)-<2B6.5).12.BF 

2 FORI =8T03: FOR J=BT03 : L INE < I»39+54 . J»39+ 
5B)-(I-»39*85, J»39 + 74) , 8 . BF : NEXT J , I 

3 F0RI=BT01 :F0RJ=BT07:B$=B$+CHRJ(VALl"&H 
"+t1ID$(" l818BB7E18242424BB84BE1C387e20B8 
".I«16+J«2+1.2))):NEXT:SPRITE$(I)=B$:B$= 
"" :NEXT:X=5B:S=2 

4 F0RI=8T03:FDRJ=8T03:PUTSPRITES. (I«39+6 
B.J«39+63).15,B:S=S+1:NEXTJ.I:LINE(114.2 
ai-1145.44) . 8.BF:SOUNDB.8:SOUND1 . 8:S0UN[> 
7.62:S0UND8. 15 

5 XX=INT(RND(1)«148+5B) : FORI=XT0XXSTEP1 + 
(X>XX)«2:PUTSPRITEB.(I.4).1S.B:NEXT:X=XX 

6 F0RI=11T0INT(RND(1)»13B+5B)STEP3:PUTSP 
RITE1.(X.I).15.1:S0UNDB.I:NEXT:S0UNDB.B: 
PUTSPRITE1 . (B.217) : G0T05 



earn mnwm&.&ttv 



A5^-YB»«W!i-*IB£5fcfffi(l5«) 



*h#5«ie ( m s x ) © z ©fF m ijph*© 

J^^7-fTltU<, £IS©fira;£trO>K' 
(u^tFMS;jg)rsiiLrn§ mmcD-b 
x.mt>yi3. r vft j pnjti^M^uzi^zti\ 

mxcomm&mizMtiMtco 

18 CALLMUSIC10.B. 1 ) 

2B F0RI=BT0RND(1 ) »5 : PL AY#2 . "355V1 504L32G 

FGFGA#06AG*04EDD#FFDCG" :NEXT 

38 PLAY#2."L3206GECDFBCF[>05EDF64B407G#2a 

5505F#D#E" 

4B F0RI=BT0RND(1 ) »9 : PLAY*2 . "85 5V 1 504CDEF 

GAB05CDEFGAB06CDEFGFEDC05BAGFEDC04BAGFED 

06FGF*" :NEXT:G0T02B 
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©£}*>*• b <7)7C( : X % B7> 9 
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7Jk SCREEN1P 
nx.H'gfitfvjv^s© 
£L\5<£<BM33:JA 

©fdo z:©s^@trB 

tzl^htiMJltz-DtZo 
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A 

3 

LS 

48 

sa 



SCREEN12:C0L0R 
19B)T0(B.211) 

B=l .8:F0R I=BT 
3) .5B-IA/2.3) ) . 
(A/2.3) ) . I :A= 
Z:X=1B8: Y=16B:X 

SETSCR0LLX.Y:X 
EIFX<95THENXX=6 

Y=Y+YY:YY=YY-1 

G0T03B 



B,a:CLS:C0PY(B.3B)-(25 

0255STEPB:CIRCLE(5B-(A/ 

50-A.I:PAINT(5B-(A/2.3) 

A+B:8=B-.B2:NEXT:DEFINT 

X=6:YY=B 

=X+XX:IFX>255THENXX=-6E 

IFY< 15BTHENYY=14 



*Si&ii*** ■*7j«-F.i.s(i2a) 



to sstfBUtornvezL-^ic^nfc© 

IS, WM%(D I F8DDiU-5>7r7_l> BAS 

■CUfc©7ctf\ ±r3]CM^^0 




-struct** 



H^<r)frfo& 



SCREEN12:C0L0R.B.8:CLS 

F0RI=255T0BSTEP-8: CIRCLE (128. 186) .1/8 
55-1 : PA INT (1 28. 1B6). 255-1: LINE (1/8*1 28 
) -STEP (2. 8) .255-1 :LINE( 128- (1/8) .BI-ST 
(2.B) .255-I:NEXT 

FORI =74T01 38 : COPY ( 96 , B ) - ( 1 78 . B ) TO ( 96 . 
. .AND:NEXT:F0RI=74T0 138: COPY (96.B)- ( 17 
B)T0(96,I) , .XOR:NEXT:GOTO 38 
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r AV7x-z7h J '\(D%LmmMtp/ mmmmim^-i; 



(ssgBPirosiiBe^-yia^) 



*z<n =t -i— <r>mitfa 7=? a& «p=CS3(r a m 8 iux£)ES32/2+f 

* * = Ez32/2+( V R A M 128 K) ffl, * * * = E232+¥fflT-f 



*=Ll2J2/2+(V R A M64KJJLL) 



V'nVn** ■mKf^*s<(7X7->*;¥^(i6i&) 



Tofcffl/c#\ SS©?4»f?^o^D}Sffl7 
7-fJl/CI0Z$tt©r-Sot„ 
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M. 



© 



A 



OSS7'v7'i;rr< £, ^SOirxf-J-XhOTa'+fta^^-jr: 



1 C0L0R1 .14.B:SCR 
OPY(B,0)-(511 .44) 

1I.1M 8:PAIN 

55. I) ,228. .4.25.5 
210) :S0UND11 .B:SO 

2 FORI=220TO29BST 
.-.B1 .-3. 14. .2:PA 
7B) :NEXT:A(2)=1B1 
.356+1*. 39781*20: 

3 F0RJ=-1T01STEP2 
)»J.100*K«14)-STE 
P(X«J.ABS(Y) ) . 1*7 
-Z:B=1 :V=PEEK(7)* 
RCLE( 190. 130) ,90, 
),90, .5.42.2.15.1 

4 VDP(24)=VDP(24) 
B«(A=0ORA=4)»2:VD 
:VDP(17)=C*7:0UTV 



EEN7:VDP(9)-VDP(9)0R2:C 
T0(B.21 1 ) :CIRCLE (255.13 
T(255,105) ,6.1 :CIRCLE(2 

18:LINE(255. 1101-1255, 
UND12,2:A(0)=93:A<1 1=99 
EP7B:CIRCLE(I.74) ,26. 15 
INT(I.7B),15,15:PSET(I, 
:A=1 :FORI=0TO4:X=-COS(2 
Y=SIN<2. 356*1*. 39781*10 
:FORK=0TO2:LINE(255*A(K 
P(X*J.Y«A) ,I+7:LINE-STE 

A=-A:NEXTK, J,I:DEFINTA 
2:S0UND6,5:S0UND7,55:CI 
,1.4.1 .4:CIRCLE(32B, 13B 
.4:S0UND8. 16:S0UND13. 12 
*6AND255:C=A:A=A+B:B=B+ 
P(17)=A+7:OUTV.0:OUTV,0 
5:0UTV,5:G0T04 



uorimmm* nfia» 



5, 5, 5, YASUMARO^XM)© 

tf-nicaSo *His^ar, fa(?>tp9tiz%. 

<5o SIRrf^ffl^ 

&©& r ^©i 




1 DEFINTA-Z:COL0R9,1 , 6 : SCRE EN5 : C0L0R= ( 9 , 
fl.5,4) :F0RI=BT03:READG( I):NEXT:LINE(255, 
149 1-10,1 49 ):FORX=BT0358:LINE-(X.RND<1)» 
11*137) :X=X*RND( 1 1*16*9 

2 NEXT: PA INT (2. 148) : F0RI=1 T0247STEP12 : C= 
C+l :D=CM004+2:S=211 :R=3*(I-80) :IFR<BORR> 
255THENXX=-255*(R>255) :S=1 50* (XX- I ) *61 / ( 
R-I) :R=XX:DATA7,7.4,4 

3 LINE(25S,15fl)-(I,15B),D:LINE-(R,SI,D:P 
AINT(I+7,151),D:NEXT:LINE(0,98)-(255.1B6 
>.6.BF:F0RJ=BT01B8:G0SUB6:C0L0R=(1.J*33, 
3.7-JS25) :Q=J¥40:NEXT 

4 G0SUB6:X=RND(1)*253+2:T=FMOD2:Y=RND(1 ) 
«193+8*T) +188*T 

5 IFF>1780RFM0D5=BTHENLINE(X,Y)-(x-2,Y+4 
) . 15;G0TO4ELSE4 

b FORI=2TO5:COLOR=(I.0,G( ( I*F IM0D4 ) , Q ) : N 
EXT:F=F+1 :RETURN 



■H*«-#±=S=*t£(13Ji) 



#±^>(M)©3fflfF§gtt s fr-DZmxtD 
r=fc^£*§|i3£>gfs^©i^H>7 htfffSS 
fttzo ^©£±l®Mofrb&n£n5Ali 
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owHssjass, ie9t^^t>itiint\SfiUz 



li COLOR 15.1 .1 :SCREEN2,2:PLAY"T150O5V15E 

E06CC05B8A8G8F8GGDV14DR2V15GGDDR406C05BB 

B":F0RT=8TOBB:E=INT(RND(l)«256):F=INT(RN 

D(1)»192) :PSET(E,F) , 1 5 :NEXTT : CIRCLE ( 127, 

95) ,5B, 1B:PA INT ( 127.95) , IB 

28 FORI=1T032:READD$:A$=A$+CHR$(VAL(""+0 

$) ) :NEXTI:SPRITE$(B)=AS:FORX=8T0255STEP 

5:PUTSPRITE8, ( X , 95 ) , 1 .B:NEXTX 

JB G0T03B 

48 DATAB.8.7.15.127, 1 27 , 63 , 63 , 31 , 1 5 . 54 , 9 

B . 1 89 , 1 32 , 72 , 48 , 231 , 239 , 239 , 238 , 255 , 287 , 

255,287.288.232.228,154.233,33,18,12 



l SOUNDS, 1 5: A=RND ( 1 ) «30 : FORI =ATOA*25 : SOU 
NDB. I :NEXT:G0T01 



mn^&mzR 



*1V>SKY(l4ii) 



•v^'ffl r ©-^^y\-> Jv ^©ge^&u 
AV tzftm¥l5>Phjti(DZIfr? WW-tsv 
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1 ; : 



ft!3$ 



I^Bgi§OU*C'(*5-cta3ll] 



OLZZ • ISS-cfc^>(M)©f^iS8s 3 

TOc:'<ilUfc+f7^5c:, a-fe&fcfe 

fc'A^te, LyH'6<D?K^LrL\-§(S^D± 

<)A\ WrfeKfA t,V¥>H# N &ffl/c 

AW^j§n£MAWc&b, StSIJ35U5 
5"v?tfBoS0(!:!ifS/co 





18 SCREEN 1:C0L0R1.1 5, 1 5 : KEYOFF : L0CATE9 , 1 
8: PRINT" rO-, " :L0CATE9, 1 1 : PR INT" H- 1 " -LOCAT 
E9.12:PRINT"r-S":L0CATE9, 13:PRINT" J L " • L 
0CATE15, 11 :PRINT"J)-),?- : vP0KE8197, 1 28 ■ FOR 
I=BT03B8:NEXT 

28 L0CATE15,12:PRINT"n»->!":L0CATE9,9:PR 
INT"»»»" :L0CATE9. 1 e : PRINT" 1 ■» I " :F0RI = 7T0B 
STEP-1 :LOCATE1B.I:PRINT"0":LOCATE1B, 1*1 ■ 
PRINT"I":L0CATE1B.I*2:PRINT"«":NEXT 



teS-'J^®* ■l»!S-+1V>SKY(l4ii: 



axgwic, ttsysKYomzm 




1 SCREEN2.1 :C0LOR15,4.5:WI 
LS:S0UND7,7:AS="S1M5BB8BC1 

2 SPRITE$(8)="9S-p'aa5":SP 
<>!"+CHR$(32)+-'":SPRITE$(2 
+STRING$(6,254) :LINE(_. 
BF:DRAU"C6S4BM255,28L4BD2B 
BF1BD1BF5D28G5D5G5D18F1BR2 
1) .6,6 

3 Y=B:A=1 :X=214:PUTSPRITE2 
TEB. (23B.3) . . B : FORI =8T0999 
E8, (228,3) , ,1 :F0RI=3T0212: 
B3:X=X-A:PUTSPRITE2, (X,I) . 
YA$:SCREEN1 : WIDTH32 : PUTSPR 

4 F0RI=BT099:L0CATERND(1 )» 
: NEXT : CLS: FOR I =8T07: LOCATE 
NG$(32,":") : :NEXT 

5 F0RJ=BT05:F0RI=12T0BSTEP 
:PRINT"o" :L0CATE15, 1*1 : PR I 
ATE15,8:PRINT" ":NEXT 
t G0T06 



DTH32:KEYOFF:C 



RITESd )="' 'B( 
)="8"*CHR$(16) 
)-(255,191) ,5, 
D2BF2BD1BG18D1 
B":PAINT(255,5 

, (X,3) :PUTSPRI 
:NEXT:PUTSPRIT 
Y=Y*.1 :A=A-1E- 
I-I*Y:NEXT:PLA 
ITE2, (128, 1B8) 
■32.23:PRINT"o" 
B,23:PRINTSTRI 

-.1 :L0CATE15,I 
NT" ":NEXT:LOC 



18 COLOR, 1 ,1 : SCREENS: CIRCLE! 125.12 
,15. , ,2: PAINT (125, IBB) ,15:FORI=185 
TEP4B:LINE(I-1B,56)-(I,58) ,1 -LINE! 
(1*18,56) , 1 :LINE(I-8,55)-(I+8,55) , 
LE(I,53) ,2, 1 : PAINT (I, 53) ,1 :NEXT 
2B FORI=15T025STEP2:LINE(118,I)-(1 
) .1 :LINE( 138. I)-( 146,1*1) ,1 :NEXT'F 
5T013BSTEP5:LINE( I , 1 47 ) - ( I .5 , 1 58 ) , 
XT:FORI=0TO15:READA,B,C,D,E-LINE(A 
,D) .E:NEXT 

30 GOT038:DATA12 5,5 5.125, 115. . 118, 
3.118, ,113.118.114,123. ,132,112,13 
48 DATA137.118, 1 36 , 1 23 , , 1 1 8 . 1 23 , 1 2 
.138,123.132,123, ,118,145,121 ,140, 
148. 124, 144, 8. 125, 144, 127, 148. 8, 12 
139, 145,8.110,149.125.152.8.125, 15 
149, 8, 110, 147, 148, 147, 8, 118, 151, 12 
8,125,157,148,151 ,8 
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